A100292 Numbers of the form a^5 + b^2 with a, b > 0.
2, 5, 10, 17, 26, 33, 36, 37, 41, 48, 50, 57, 65, 68, 81, 82, 96, 101, 113, 122, 132, 145, 153, 170, 176, 197, 201, 226, 228, 244, 247, 252, 257, 259, 268, 279, 288, 290, 292, 307, 321, 324, 325, 343, 356, 362, 364, 387, 393, 401, 412, 432, 439, 442, 468, 473
Offset: 1
Keywords
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..5000
Crossrefs
Programs
-
Mathematica
lst={}; Do[p=a^5+b^2; If[p<1000, AppendTo[lst, p]], {a, 16}, {b, 1024}]; Union[lst]
-
PARI
is(n, m=5)=for(a=1, sqrtnint(n-1, m), issquare(n-a^m) && return(a)) \\ M. F. Hasler, Apr 25 2018