%I #9 May 14 2017 22:48:27
%S 0,1,4,7,8,15,28,39,48,55,60,63,64,71,112,127,151,188,223,252,256,287,
%T 316,343,368,375,391,412,431,448,463,476,487,496,503,508,511,512,615,
%U 727,732,847,960,1023,1071,1084,1180,1287,1392,1439,1495,1596,1695
%N Numbers of the form 8^x-y^2 >= 0.
%t max = 2000; Clear[f]; f[m_] := f[m] = Select[Table[8^x - y^2, {x, 0, m}, {y, 0, Ceiling[8^(x/2)]}] // Flatten // Union, 0 <= # <= max &]; f[1]; f[m = 2]; While[f[m] != f[m - 1], m++]; Print["m = ", m]; A051219 = f[m] (* _Jean-François Alcover_, May 14 2017 *)
%K nonn
%O 1,3
%A _David W. Wilson_