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]