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
KEYWORD
nonn
AUTHOR
STATUS
approved