A051207 Numbers of the form x^2-5^y >= 0.

0, 3, 4, 8, 11, 15, 19, 20, 24, 31, 35, 39, 44, 48, 51, 56, 59, 63, 71, 75, 76, 80, 95, 96, 99, 100, 104, 116, 119, 120, 124, 131, 139, 143, 144, 159, 164, 168, 171, 191, 195, 199, 200, 216, 220, 224, 231, 236, 239, 251, 255, 264, 275, 284, 288, 299, 316, 319

Offset

1,2

Links

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

Mathematica

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

Crossrefs

Sequence in context: A022888 A287454 A287446 * A217755 A373901 A133363

Adjacent sequences: A051204 A051205 A051206 * A051208 A051209 A051210

Keyword

nonn

Author

David W. Wilson

Status

approved