A051207 - OEIS

%I #11 May 14 2017 03:00:30

%S 0,3,4,8,11,15,19,20,24,31,35,39,44,48,51,56,59,63,71,75,76,80,95,96,

%T 99,100,104,116,119,120,124,131,139,143,144,159,164,168,171,191,195,

%U 199,200,216,220,224,231,236,239,251,255,264,275,284,288,299,316,319

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

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

%K nonn

%O 1,2

%A _David W. Wilson_