A051212 Numbers of the form x^2-10^y >= 0.

0, 3, 6, 8, 15, 21, 24, 26, 35, 39, 44, 48, 54, 63, 69, 71, 80, 89, 90, 96, 99, 111, 120, 125, 134, 143, 156, 159, 168, 186, 189, 195, 201, 215, 224, 225, 246, 255, 261, 279, 288, 296, 300, 314, 323, 341, 351, 360, 369, 384, 390, 399, 404, 429, 431, 440, 444

Offset: 1

Author

David W. Wilson

Keywords

• nonn

Programs

Mathematica

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