Penta-power prime seeds: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Sigh) |
(Add Factor) |
||
Line 122: | Line 122: | ||
First element over 9000000: 9100671, index: 71 |
First element over 9000000: 9100671, index: 71 |
||
First element over 10000000: 10347035, index: 72 |
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> |
</pre> |
||