|
cubans[m_Integer] := Block[{n = 1, result = {}, candidate},
|
|
While[Length[result] < m,
|
|
n++;
|
|
candidate = n^3 - (n - 1)^3;
|
|
If[PrimeQ[candidate], AppendTo[result, candidate]]];
|
|
result]
|
|
cubans[200]
|
|
NumberForm[Last[cubans[100000]], NumberSeparator -> ",", DigitBlock -> 3]
|