login
A051211
Numbers of the form x^2-9^y >= 0.
2
0, 3, 7, 8, 15, 16, 19, 24, 27, 35, 40, 48, 55, 63, 72, 80, 88, 91, 99, 112, 115, 120, 135, 143, 144, 160, 163, 168, 171, 175, 187, 195, 208, 216, 224, 232, 243, 247, 255, 280, 288, 295, 315, 319, 323, 328, 352, 360, 391, 399, 403, 427, 432, 440, 448, 475, 483
OFFSET
1,2
MATHEMATICA
max = 500; Clear[f]; f[m_] := f[m] = Select[Table[x^2 - 9^y, {y, 0, m}, {x, Floor[9^(y/2)], Ceiling[Sqrt[9^y + max]]}] // Flatten // Union, 0 <= # <= max &]; f[1]; f[m = 2]; While[f[m] != f[m - 1], m++]; Print["m = ", m]; A051211 = f[m] (* Jean-François Alcover, May 14 2017 *)
CROSSREFS
Sequence in context: A002381 A131559 A366783 * A105173 A309197 A076683
KEYWORD
nonn
STATUS
approved