%I #12 Feb 11 2022 16:36:48
%S 2811,11240,25287,44952,70235,101136,137655,179792,227547,280920,
%T 339911,404520,474747,550592,632055,719136,811835,910152,1014087,
%U 1123640,1238811,1359600,1486007,1618032,1755675,1898936,2047815,2202312,2362427
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 53.
%H Charles R Greathouse IV, <a href="/A031731/b031731.txt">Table of n, a(n) for n = 1..10000</a>
%t cf53Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Min[ContinuedFraction[s][[2]]]] == 53]; Select[Range[237*10^4],cf53Q] (* _Harvey P. Dale_, Feb 11 2022 *)
%K nonn
%O 1,1
%A _David W. Wilson_