A051208 Numbers of the form x^2-6^y >= 0.

0, 3, 8, 9, 10, 13, 15, 19, 24, 28, 30, 35, 40, 43, 45, 48, 58, 63, 64, 73, 75, 80, 85, 94, 99, 108, 115, 120, 133, 138, 143, 145, 148, 160, 163, 168, 184, 189, 190, 195, 219, 220, 224, 225, 250, 253, 255, 268, 283, 288, 304, 313, 318, 323, 324, 325, 355, 360, 364, 385, 394, 399

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A276006 A091767 A024549 * A211223 A350776 A247544

Adjacent sequences: A051205 A051206 A051207 * A051209 A051210 A051211

Keyword

nonn

Author

David W. Wilson

Status

approved