%I #12 Jul 15 2021 01:53:06
%S 3251,13000,29247,51992,81235,116976,159215,207952,263187,324920,
%T 393151,467880,549107,636832,731055,831776,938995,1052712,1172927,
%U 1299640,1432851,1572560,1718767,1871472,2030675,2196376,2368575,2547272,2732467
%N Numbers k such that the least term in the periodic part of the continued fraction for sqrt(k) is 57.
%H Charles R Greathouse IV, <a href="/A031735/b031735.txt">Table of n, a(n) for n = 1..10000</a>
%t cf57Q[n_]:=Module[{s=Sqrt[n],cf},cf=If[IntegerQ[s],{1},Min[ ContinuedFraction[ s][[2]]]]==57]; Select[Range[274*10^4],cf57Q] (* _Harvey P. Dale_, Jul 21 2020 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|