Cubic special primes: Difference between revisions
added Arturo
(→{{header|Ruby}}: Add Ruby) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 140:
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|Arturo}}==
{{trans|FreeBASIC}}
<syntaxhighlight lang="arturo">[p n]: [2 1]
prints -> 2
until -> 15000 =< p + n^3 [
if? prime? p + n^3 [
'p + n^3
n: 1
prints -> p
]
else -> 'n+1
]</syntaxhighlight>
{{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|AWK}}==
|