数字乘积

无心人

结果在114#

mathe

114#是Haskell产生的？

                    ==========================
                                    
                                     yaos:  不是， 是C

无心人

现在证明了
在512位十进制以下

78# mathe找到的两个只含2, 3, 7因子的数是仅有的两个10阶数！！！！

无心人

1. 
   
2.   import Char
   
3. 
   
4.   rList :: String -> IO [(Integer, Integer, Integer)]
   
5.   rList = readIO
   
6. 
   
7.   pd n = product  [x | c <- show n, let x = toInteger \$ ord(c) - ord('0')]
   
8. 
   
9.   pl n = if (n < 10) then 0 else (pl . pd) n + 1
   
10. 
    
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几个可能

暴力生成就行了吧