数字乘积

无心人

结果在114#

mathe

114#是Haskell产生的？ ========================== yaos: 不是， 是C

无心人

现在证明了 在512位十进制以下 78# mathe找到的两个只含2, 3, 7因子的数是仅有的两个10阶数！！！！

无心人

2. import Char
4. rList :: String -> IO [(Integer, Integer, Integer)]
5. rList = readIO
7. pd n = product [x | c <- show n, let x = toInteger \$ ord(c) - ord('0')]
9. pl n = if (n < 10) then 0 else (pl . pd) n + 1
11. main = do f <- readFile "e://mingw//msys//math//p237.txt"
12. l <- rList f
13. let l1 = map (\(a, b, c) -> (pl \$ 2^a * 3^b * 7^c, a, b, c)) l
14. let lr = filter (\(d, _, _, _) -> d >= 10) l1
15. print \$ show lr

复制代码

mathe

原帖由 无心人 于 2009-3-4 09:10 发表 现在证明了 在512位十进制以下 78# mathe找到的两个只含2, 3, 7因子的数是仅有的两个10阶数！！！！

呵呵，这样的9阶的数是不是也只有两个？

无心人

"[(5,1,4,7),(5,2,0,9),(5,2,4,6),(5,2,5,3),(5,2,8,0),(5,3,4,3),(5,3,5,3),(5,3,14,1),(5,5,0,8),(5,5,2,3),(5,5,10,1),(5,5,11,7),(5,6,0,8),(5,6,8,1),(5,6,23,1),(5,7,1,1),(5,7,1,2),(5,7,2,5),(5,7,12,1),(5,9,1,4),(5,9,2,7),(5,9,11,2),(5,9,13,3),(5,11,0,4),(5,11,2,9),(5,12,0,8),(5,12,1,3),(5,12,4,0),(5,14,1,10),(5,14,10,4),(5,15,1,1),(5,15,7,0),(5,16,3,0),(5,16,5,1),(5,19,2,4),(5,20,5,1),(5,21,4,0),(5,22,6,2),(5,35,2,6),(5,39,3,2),(6,0,3,4),(6,1,20,1),(6,2,5,2),(6,5,5,6),(6,5,6,8),(6,6,3,2),(6,10,3,0),(6,10,6,4),(6,16,8,3),(6,23,2,2),(6,24,6,6),(7,1,10,1),(7,1,13,0),(7,4,10,1),(7,6,27,1),(7,8,3,2),(7,9,4,3),(7,10,7,0),(7,24,18,0),(8,1,2,12),(8,6,6,5),(8,9,5,8),(8,11,7,0),(8,21,3,3),(9,12,7,2),(9,33,3,0),(10,4,20,5),(10,19,4,6)]" 好了，我改程序排序输出了5-10的结果，第一个是阶

无心人

10， 9的2个 8的5个 7的8个 6的11个 5的自己数 呵呵

无心人

按照概率 应该存在11的 ===================== 不过问题特殊 是否能从10的推出不存在11的？？

mathe

我倒是觉得依概率应该不存在。 从10推到11很难

无心人

从10的能推出多少11的来？ 因为不用考虑其他数字啊 只有2, 3, 4, 6, 7, 8, 9几个可能 暴力生成就行了吧