Quad-power prime seeds: Difference between revisions
Content added Content deleted
(→{{header|Wren}}: Added 10 million for consistency with 'penta' task.) |
(Add Factor) |
||
Line 19: | Line 19: | ||
<br> |
<br> |
||
=={{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 sequences tools.memory.private ; |
|||
: seed? ( n -- ? ) |
|||
{ 1 2 3 4 } [ dupd ^ 1 + + prime? ] with all? ; |
|||
: quads ( -- list ) |
|||
1 lfrom [ seed? ] lfilter [ commas ] lmap-lazy ; |
|||
"First fifty quad-power prime seeds:" print |
|||
50 quads ltake list>array 10 group simple-table.</lang> |
|||
{{out}} |
|||
<pre> |
|||
First fifty quad-power prime seeds: |
|||
1 2 5 6 69 131 426 1,665 2,129 2,696 |
|||
5,250 7,929 9,689 13,545 14,154 14,286 16,434 19,760 25,739 27,809 |
|||
29,631 36,821 41,819 46,619 48,321 59,030 60,500 61,955 62,321 73,610 |
|||
77,685 79,646 80,535 82,655 85,251 86,996 91,014 96,566 97,739 105,939 |
|||
108,240 108,681 119,754 122,436 123,164 126,489 140,636 150,480 153,179 163,070 |
|||
</pre> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |
||
<lang perl6>use Lingua::EN::Numbers; |
<lang perl6>use Lingua::EN::Numbers; |