OFFSET
1,1
EXAMPLE
11 is a term because 2^3 + 2*1 + 1^3 = 11 is prime.
31 is a term because 3^3 + 3*1 + 1^3 = 31 is prime.
41 is a term because 3^3 + 3*2 + 2^3 = 41 is prime.
MATHEMATICA
nn = 10000; lim = Floor[nn^(1/3)]; Union[Reap[Do[p = a^3 + a*b + b^3; If[p <= nn && PrimeQ[p], Sow[p]], {a, lim}, {b, a}]][[2, 1]]] (* Wesley Ivan Hurt, Jan 07 2016 after T. D. Noe *)
lim=100; Select[Union[Flatten[Table[x^3 + x y + y^3, {x, 0, lim}, {y, 0, lim}]]], #>0 && #<lim^2 && PrimeQ[#] &] (* Vincenzo Librandi, Jan 08 2016 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Jan 07 2016
STATUS
approved