Penta-power prime seeds: Difference between revisions
added Arturo
Drkameleon (talk | contribs) (added Arturo) |
|||
Line 123:
First element over 10000000: 10347035, index: 72
</pre>
=={{header|Arturo}}==
<syntaxhighlight lang="arturo">pentaPowerPrime?: function [n]->
every? [[n+2] [n+n+1] [1+n+n^2] [1+n+n^3] [1+n+n^4]] 'x ->
prime? do x
first30ppps: select.first:30 1..∞ => pentaPowerPrime?
loop split.every: 6 first30ppps 'x ->
print map x 's -> pad to :string s 7</syntaxhighlight>
{{out}}
<pre> 1 5 69 1665 2129 25739
29631 62321 77685 80535 82655 126489
207285 211091 234359 256719 366675 407945
414099 628859 644399 770531 781109 782781
923405 1121189 1158975 1483691 1490475 1512321</pre>
=={{header|Factor}}==
| |||