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,2

Comments

For values m see A177764.

For values s see A177765.

For numbers that have more than one representation see A177766.

Links

Table of n, a(n) for n=1..55.

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]

Crossrefs

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

Sequence in context: A067776 A193688 A132348 * A101073 A026226 A335569

Adjacent sequences: A177760 A177761 A177762 * A177764 A177765 A177766

Keyword

nonn

Author

Artur Jasinski, May 13 2010

Extensions

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

Status

approved