OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[p=a^5+b^3; If[p<100000&&PrimeQ[p], AppendTo[lst, p]], {a, 64}, {b, 1024}]; Union[lst]
With[{nn=100}, Select[#[[1]]^5+#[[2]]^3&/@Tuples[Range[nn], 2], PrimeQ[#]&&#< 70000&]]//Union (* Harvey P. Dale, Jun 20 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Nov 18 2004
STATUS
approved