A177763 Numbers of the form m^5-s^2, m>=1, s >= 0.

1, 7, 16, 18, 19, 23, 28, 31, 32, 47, 60, 63, 74, 99, 100, 122, 124, 143, 144, 162, 166, 179, 183, 194, 207, 209, 218, 227, 234, 239, 240, 242, 243, 250, 295, 316, 341, 348, 368, 380, 399, 412, 421, 423, 448, 485, 495, 524, 535, 540, 551, 583, 608, 624, 625

Offset: 1

Author

Artur Jasinski, May 13 2010

Keywords

• nonn

Comments

For values m see A177764.

For values s see A177765.

For numbers that have more than one representation see A177766.

Crossrefs

Cf. A152412, A177760, A177761, A177764, A177765.

Programs

Mathematica

aa = {}; bb = {}; cc = {}; Do[Do[If[((N[Sqrt[x^5 - n], 300] - Round[Sqrt[x^5 - n]])^2 < 10^-300) && (Im[Round[Sqrt[x^5 - n]]] == 0), AppendTo[aa, n]; AppendTo[bb, x]; AppendTo[cc, Round[Sqrt[x^5 - n]]]; Print[{n}, {x}, {Round[Sqrt[x^5 - n]]}]], {x, 1, 1000}], {n, 1, 1000}]; Union[aa]

Extensions

Edited by N. J. A. Sloane, May 15 2010