%I #12 Jan 25 2021 10:50:32
%S 2,5,10,17,26,33,36,37,41,48,50,57,65,68,81,82,96,101,113,122,132,145,
%T 153,170,176,197,201,226,228,244,247,252,257,259,268,279,288,290,292,
%U 307,321,324,325,343,356,362,364,387,393,401,412,432,439,442,468,473
%N Numbers of the form a^5 + b^2 with a, b > 0.
%H Vincenzo Librandi, <a href="/A100292/b100292.txt">Table of n, a(n) for n = 1..5000</a>
%t lst={}; Do[p=a^5+b^2; If[p<1000, AppendTo[lst, p]], {a, 16}, {b, 1024}]; Union[lst]
%o (PARI) is(n, m=5)=for(a=1, sqrtnint(n-1, m), issquare(n-a^m) && return(a)) \\ _M. F. Hasler_, Apr 25 2018
%Y Cf. A100272 (primes of the form a^5 + b^2).
%Y Cf. A000404 (a^2 + b^2), A055394 (a^2 + b^3), A111925 (a^2 + b^4), A100291 (a^4 + b^3), A100292 (a^5 + b^2), A100293 (a^5 + b^3), A100294 (a^5 + b^4), A303372 (a^2 + b^6), A303373 (a^3 + b^6), A303374 (a^4 + b^6), A303375 (a^5 + b^6).
%K nonn
%O 1,1
%A _T. D. Noe_, Nov 18 2004