%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