|
%I #13 Jul 11 2021 07:24:53
%S 334,487,501,599,716,719,814,869,926,1004,1031,1099,1125,1169,1214,
%T 1244,1246,1333,1414,1434,1437,1473,1529,1557,1559,1564,1607,1648,
%U 1696,1719,1807,1817,1823,1916,1977,1978,2032,2065,2087,2140,2324,2329,2350,2382
%N Numbers k such that the continued fraction for sqrt(k) has period 28.
%t cf28Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Length[ ContinuedFraction[ s][[2]]]]==28]; Select[Range[2400],cf28Q] (* _Harvey P. Dale_, Mar 10 2019 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
