OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p=a^4+b^3; If[p<50000&&PrimeQ[p], AppendTo[lst, p]], {a, 64}, {b, 256}]; Union[lst]
PROG
(PARI) list(lim)=my(v=List([2]), a4, t); lim\=1; for(a=1, sqrtnint(lim-1, 4), a4=a^4; forstep(b=1+a%2, sqrtnint(lim-a4, 3), 2, if(isprime(t=a4+b^3), listput(v, t)))); Set(v) \\ Charles R Greathouse IV, Aug 18 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 18 2004
STATUS
approved