%I #10 May 13 2017 23:29:59
%S 0,3,8,9,10,13,15,19,24,28,30,35,40,43,45,48,58,63,64,73,75,80,85,94,
%T 99,108,115,120,133,138,143,145,148,160,163,168,184,189,190,195,219,
%U 220,224,225,250,253,255,268,283,288,304,313,318,323,324,325,355,360,364,385,394,399
%N Numbers of the form x^2-6^y >= 0.
%t max = 400; Clear[f]; f[m_] := f[m] = Select[Table[x^2 - 6^y, {y, 0, m}, {x, Floor[6^(y/2)], Ceiling[Sqrt[6^y + max]]}] // Flatten // Union, 0 <= # <= max &]; f[1]; f[m = 2]; While[f[m] != f[m - 1], m++]; Print["m = ", m]; A051208 = f[m] (* _Jean-François Alcover_, May 13 2017 *)
%K nonn
%O 1,2
%A _David W. Wilson_
|