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