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

0, 1, 3, 8, 15, 17, 24, 28, 35, 36, 41, 48, 56, 57, 63, 64, 73, 80, 92, 99, 105, 113, 120, 129, 132, 136, 143, 161, 164, 168, 188, 192, 195, 217, 224, 225, 248, 255, 260, 272, 281, 288, 297, 316, 323, 329, 336, 353, 356, 360, 377, 388, 392, 393, 399, 420, 433

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A045263 A004733 A310307 * A191773 A310308 A310309

Adjacent sequences: A051207 A051208 A051209 * A051211 A051212 A051213

Keyword

nonn

Author

David W. Wilson

Status

approved