OFFSET
1,3
FORMULA
{n: A247763(n) > 0 }. - R. J. Mathar, Jul 24 2022
EXAMPLE
5 is in the sequence because 5 can be written as 3^2-2^2
MATHEMATICA
max = 200; Clear[f]; f[m_] := f[m] = Select[Table[x^2 - 2^y, {y, 0, m}, {x, Floor[2^(y/2)], Ceiling[Sqrt[2^y + max]]}] // Flatten // Union, 0 <= # <= max &]; f[1]; f[m = 2]; While[f[m] != f[m/2], m = 2 m]; Print["m = ", m]; A051204 = f[m] (* Jean-François Alcover, May 13 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected by Henry Bottomley, Jul 24 2000
STATUS
approved