|
%I #10 Jun 20 2023 19:12:40
%S 2,59,157,251,307,761,1051,1367,1753,3221,3407,3637,4339,5869,7883,
%T 7901,8243,9293,9973,10891,12689,16649,16871,17807,20707,20903,22639,
%U 24421,30631,35969,37567,50651,59113,59351,59561,60343,63463,67049,69697
%N Primes of the form a^5 + b^3 with a,b>0.
%H Vincenzo Librandi, <a href="/A100273/b100273.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={}; Do[p=a^5+b^3; If[p<100000&&PrimeQ[p], AppendTo[lst, p]], {a, 64}, {b, 1024}]; Union[lst]
%t With[{nn=100},Select[#[[1]]^5+#[[2]]^3&/@Tuples[Range[nn],2],PrimeQ[#]&&#< 70000&]]//Union (* _Harvey P. Dale_, Jun 20 2023 *)
%Y Cf. A100293 (numbers of the form a^5 + b^3).
%K nonn
%O 1,1
%A _T. D. Noe_, Nov 18 2004
|
