Cubic special primes: Difference between revisions
Add Factor
SqrtNegInf (talk | contribs) (Added Perl) |
(Add Factor) |
||
Line 13:
primes32()|>Seq.takeWhile((>)16000)|>Seq.filter fN|>Seq.iter(printf "%d "); printfn ""
</lang>
{{out}}
<pre>
2 3 11 19 83 1811 2027 2243 2251 2467 2531 2539 3539 3547 4547 5059 10891 12619 13619 13627 13691 13907 14419
</pre>
=={{header|Factor}}==
{{works with|Factor|0.98}}
<lang factor>USING: fry io kernel lists lists.lazy math math.functions
math.primes prettyprint ;
2 [ 1 lfrom swap '[ 3 ^ _ + ] lmap-lazy [ prime? ] lfilter car ]
lfrom-by [ 15000 < ] lwhile [ pprint bl ] leach nl</lang>
{{out}}
<pre>
| |||