%I #9 May 14 2017 03:00:38
%S 0,3,7,8,15,16,19,24,27,35,40,48,55,63,72,80,88,91,99,112,115,120,135,
%T 143,144,160,163,168,171,175,187,195,208,216,224,232,243,247,255,280,
%U 288,295,315,319,323,328,352,360,391,399,403,427,432,440,448,475,483
%N Numbers of the form x^2-9^y >= 0.
%t 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 *)
%K nonn
%O 1,2
%A _David W. Wilson_
|