|
%I #6 Jul 18 2012 08:07:48
%S 2,5,17,37,41,101,113,197,257,307,401,439,499,577,643,677,727,761,919,
%T 1033,1049,1193,1249,1297,1399,1553,1601,1753,2113,2179,2393,2633,
%U 2917,3049,3137,3449,3607,3701,3833,4001,4049,4273,4339,4357,4421,4793,4889
%N Primes of the form a^5 + b^2 with a>0.
%H Vincenzo Librandi, <a href="/A100272/b100272.txt">Table of n, a(n) for n = 1..1000</a>
%t lst={}; Do[p=a^5+b^2; If[p<10000&&PrimeQ[p], AppendTo[lst, p]], {a, 16}, {b, 1024}]; Union[lst]
%Y Cf. A100292 (numbers of the form a^5 + b^2).
%K nonn
%O 1,1
%A _T. D. Noe_, Nov 18 2004
|
