%I #7 Apr 01 2023 11:00:05
%S 25519,47167,51067,75839,103027,123463,123971,126655,128083,132823,
%T 145847,151411,154507,159895,160043,187384,198067,202211,216875,
%U 217807,218951,219055,219271,223687,234779,234955,236099,242215,246999,247487
%N Period of continued fraction for sqrt(n) contains exactly 69 ones.
%t cf69Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==69]; Select[ Range[250000],cf69Q] (* _Harvey P. Dale_, Apr 01 2023 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|