A051205 Numbers of the form x^2-3^y >= 0.

0, 1, 3, 6, 7, 8, 9, 13, 15, 16, 19, 22, 24, 27, 33, 35, 37, 40, 46, 48, 54, 55, 61, 63, 72, 73, 78, 80, 81, 88, 91, 94, 97, 99, 112, 115, 117, 118, 120, 135, 141, 142, 143, 144, 157, 160, 163, 166, 168, 169, 171, 175, 187, 193, 195, 198, 208, 214, 216, 222, 224

Offset

1,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A113826 A053030 A189822 * A168114 A220656 A324143

Adjacent sequences: A051202 A051203 A051204 * A051206 A051207 A051208

Keyword

nonn

Author

David W. Wilson

Status

approved