42 lines
994 B
Haskell
42 lines
994 B
Haskell
Main> print 1 >> mapM_ (putStrLn . showFactors) [2..]
|
|
1
|
|
2 = 2
|
|
3 = 3
|
|
4 = 2 * 2
|
|
5 = 5
|
|
6 = 2 * 3
|
|
7 = 7
|
|
8 = 2 * 2 * 2
|
|
9 = 3 * 3
|
|
10 = 2 * 5
|
|
11 = 11
|
|
12 = 2 * 2 * 3
|
|
. . .
|
|
|
|
Main> mapM_ (putStrLn . showFactors) [2144..]
|
|
2144 = 2 * 2 * 2 * 2 * 2 * 67
|
|
2145 = 3 * 5 * 11 * 13
|
|
2146 = 2 * 29 * 37
|
|
2147 = 19 * 113
|
|
2148 = 2 * 2 * 3 * 179
|
|
2149 = 7 * 307
|
|
2150 = 2 * 5 * 5 * 43
|
|
2151 = 3 * 3 * 239
|
|
2152 = 2 * 2 * 2 * 269
|
|
2153 = 2153
|
|
2154 = 2 * 3 * 359
|
|
. . .
|
|
|
|
Main> mapM_ (putStrLn . showFactors) [121231231232155..]
|
|
121231231232155 = 5 * 11 * 419 * 5260630559
|
|
121231231232156 = 2 * 2 * 97 * 1061 * 294487867
|
|
121231231232157 = 3 * 3 * 3 * 131 * 34275157261
|
|
121231231232158 = 2 * 19 * 67 * 1231 * 38681033
|
|
121231231232159 = 121231231232159
|
|
121231231232160 = 2 * 2 * 2 * 2 * 2 * 3 * 5 * 7 * 7 * 5154389083
|
|
121231231232161 = 121231231232161
|
|
121231231232162 = 2 * 60615615616081
|
|
121231231232163 = 3 * 13 * 83 * 191089 * 195991
|
|
121231231232164 = 2 * 2 * 253811 * 119410931
|
|
121231231232165 = 5 * 137 * 176979899609
|
|
. . .
|