A051212 - OEIS

%I #9 May 14 2017 22:48:14

%S 0,3,6,8,15,21,24,26,35,39,44,48,54,63,69,71,80,89,90,96,99,111,120,

%T 125,134,143,156,159,168,186,189,195,201,215,224,225,246,255,261,279,

%U 288,296,300,314,323,341,351,360,369,384,390,399,404,429,431,440,444

%N Numbers of the form x^2-10^y >= 0.

%t max = 500; Clear[f]; f[m_] := f[m] = Select[Table[x^2 - 10^y, {y, 0, m}, {x, Floor[10^(y/2)], Ceiling[Sqrt[10^y + max]]}] // Flatten // Union, 0 <= # <= max &]; f[1]; f[m = 2]; While[f[m] != f[m - 1], m++]; Print["m = ", m]; A051212 = f[m] (* _Jean-François Alcover_, May 14 2017 *)

%K nonn

%O 1,2

%A _David W. Wilson_