%I #17 Jul 15 2021 01:52:54
%S 626,2502,5628,10004,15630,22506,30632,40008,50634,62510,75636,90012,
%T 105638,122514,140640,160016,180642,202518,225644,250020,275646,
%U 302522,330648,360024,390650,422526,455652,490028,525654,562530,600656,640032
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 50.
%C a(n) = 625n^2 + n for n < 53, but a(53) = 1692652. - _Charles R Greathouse IV_, Aug 04 2017
%H Charles R Greathouse IV, <a href="/A031728/b031728.txt">Table of n, a(n) for n = 1..10000</a>
%t lt50Q[n_]:=Module[{s=Sqrt[n]},!IntegerQ[s]&&Min[ContinuedFraction[s][[2]]]==50]; Select[Range[641000],lt50Q] (* _Harvey P. Dale_, Mar 05 2013 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|