OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p=a^5+b^2; If[p<10000&&PrimeQ[p], AppendTo[lst, p]], {a, 16}, {b, 1024}]; Union[lst]
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 18 2004
STATUS
approved