A232267 Least k>=0 such that n^3 + k^2 is a square.

0, 0, 1, 3, 0, 10, 3, 21, 8, 0, 15, 55, 6, 78, 35, 15, 0, 136, 27, 171, 10, 42, 99, 253, 10, 0, 143, 81, 42, 406, 15, 465, 64, 88, 255, 35, 0, 666, 323, 91, 3, 820, 21, 903, 55, 66, 483, 1081, 48, 0, 125, 85, 39, 1378, 81, 165, 28, 76, 783, 1711, 15, 1830, 899, 63

Offset: 0

Author

Alex Ratushnyak, Nov 21 2013

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A000290, A000578, A232175.

Programs

Mathematica

Table[k = 0; While[! IntegerQ[Sqrt[n^3 + k^2]], k++]; k, {n, 0, 100}] (* T. D. Noe, Nov 22 2013 *)