结果在114#
114#是Haskell产生的？
==========================
yaos:不是， 是C
现在证明了
在512位十进制以下
78# mathe找到的两个只含2, 3, 7因子的数是仅有的两个10阶数！！！！
import Char
rList :: String -> IO [(Integer, Integer, Integer)]
rList = readIO
pd n = product
pl n = if (n < 10) then 0 else (pl . pd) n + 1
main = do f <- readFile "e://mingw//msys//math//p237.txt"
l <- rList f
let l1 = map (\(a, b, c) -> (pl \$ 2^a * 3^b * 7^c, a, b, c)) l
let lr = filter (\(d, _, _, _) -> d >= 10) l1
print \$ show lr
原帖由 无心人 于 2009-3-4 09:10 发表 http://bbs.emath.ac.cn/images/common/back.gif
现在证明了
在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的自己数
呵呵
:lol
按照概率
应该存在11的
=====================
不过问题特殊
是否能从10的推出不存在11的？？
我倒是觉得依概率应该不存在。
从10推到11很难
从10的能推出多少11的来？
因为不用考虑其他数字啊
只有2, 3, 4, 6, 7, 8, 9几个可能
暴力生成就行了吧