|
%I #12 Jul 11 2021 07:24:42
%S 463,508,764,913,956,967,974,989,1041,1063,1121,1132,1135,1219,1228,
%T 1276,1336,1372,1447,1555,1583,1591,1678,1797,1834,1912,1927,2004,
%U 2044,2094,2151,2155,2224,2398,2416,2422,2447,2586,2608,2710,2722,2752,2815,2864
%N Numbers k such that the continued fraction for sqrt(k) has period 32.
%t cf32Q[n_]:=Module[{s=Sqrt[n],len},len=If[IntegerQ[s],1, Length[ ContinuedFraction[ s][[2]]]];len==32]; Select[Range[3000],cf32Q] (* _Harvey P. Dale_, Jan 12 2017 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
