OFFSET
1,1
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
MATHEMATICA
nn=10^5; Select[Sort[Flatten[Table[4a^3+27b^2, {b, Sqrt[nn/27]}, {a, ((nn-27b^2)/4)^(1/3)}]]], PrimeQ[ # ] &]
PROG
(PARI) is(p)=for(b=1, sqrtint(max(0, p-4)\27), my(t=p-27*b^2); if(t%4==0&&ispower(t/4, 3), return(isprime(p)))); 0 \\ Charles R Greathouse IV, Jun 06 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Dec 29 2008
STATUS
approved