A100273 Primes of the form a^5 + b^3 with a,b>0.
2, 59, 157, 251, 307, 761, 1051, 1367, 1753, 3221, 3407, 3637, 4339, 5869, 7883, 7901, 8243, 9293, 9973, 10891, 12689, 16649, 16871, 17807, 20707, 20903, 22639, 24421, 30631, 35969, 37567, 50651, 59113, 59351, 59561, 60343, 63463, 67049, 69697
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A100293 (numbers of the form a^5 + b^3).
Programs
-
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 *)