Cubic special primes: Difference between revisions
→{{header|Nim}}
(→{{header|ALGOL 68}}: Use ALGOL 68-primes) |
|||
Line 309:
13691 13907 14419
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>start = {2};
Do[
If[PrimeQ[i],
last = Last[start];
If[IntegerQ[Surd[i - last, 3]],
AppendTo[start, i]
]
]
,
{i, 3, 15000}
]
start</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|Nim}}==
| |||