Penta-power prime seeds: Difference between revisions
Add Factor
Thundergnat (talk | contribs) (Sigh) |
(Add Factor) |
||
Line 122:
First element over 9000000: 9100671, index: 71
First element over 10000000: 10347035, index: 72
</pre>
=={{header|Factor}}==
{{works with|Factor|0.99 2022-04-03}}
<lang factor>USING: grouping io kernel lists lists.lazy math math.functions
math.primes prettyprint tools.memory.private ;
: seed? ( n -- ? )
5 [ dupd ^ 1 + + prime? ] with all-integers? ;
: pentas ( -- list )
1 lfrom [ seed? ] lfilter [ commas ] lmap-lazy ;
"First thirty penta-power prime seeds:" print
30 pentas ltake list>array 5 group simple-table.</lang>
{{out}}
<pre>
First thirty penta-power prime seeds:
1 5 69 1,665 2,129
25,739 29,631 62,321 77,685 80,535
82,655 126,489 207,285 211,091 234,359
256,719 366,675 407,945 414,099 628,859
644,399 770,531 781,109 782,781 923,405
1,121,189 1,158,975 1,483,691 1,490,475 1,512,321
</pre>
| |||