Cuban primes: Difference between revisions
m
no edit summary
m (→{{header|Phix}}: added syntax colouring the hard way) |
mNo edit summary |
||
Line 1,692:
The 100000th cuban prime is: 1792617147127</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>cubans[m_Integer] := Block[{n = 1, result = {}, candidate},
While[Length[result] < m,
| |||