A051219 Numbers of the form 8^x-y^2 >= 0.

0, 1, 4, 7, 8, 15, 28, 39, 48, 55, 60, 63, 64, 71, 112, 127, 151, 188, 223, 252, 256, 287, 316, 343, 368, 375, 391, 412, 431, 448, 463, 476, 487, 496, 503, 508, 511, 512, 615, 727, 732, 847, 960, 1023, 1071, 1084, 1180, 1287, 1392, 1439, 1495, 1596, 1695

Offset

1,3

Links

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

Mathematica

max = 2000; Clear[f]; f[m_] := f[m] = Select[Table[8^x - y^2, {x, 0, m}, {y, 0, Ceiling[8^(x/2)]}] // Flatten // Union, 0 <= # <= max &]; f[1]; f[m = 2]; While[f[m] != f[m - 1], m++]; Print["m = ", m]; A051219 = f[m] (* Jean-François Alcover, May 14 2017 *)

Crossrefs

Sequence in context: A376163 A324854 A086987 * A344581 A270216 A237599

Adjacent sequences: A051216 A051217 A051218 * A051220 A051221 A051222

Keyword

nonn

Author

David W. Wilson

Status

approved