login
Period of continued fraction for sqrt(n) contains exactly 97 ones.
0

%I #7 Nov 18 2024 12:58:15

%S 71371,72691,79459,114271,151099,154331,156599,163255,186319,207047,

%T 214139,258187,259139,259327,305531,306979,320215,323563,363883,

%U 391327,407371,415067,418384,424691,424943,448463,470671,478867,490403,492143

%N Period of continued fraction for sqrt(n) contains exactly 97 ones.

%t cf97Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==97]; Select[Range[500000],cf97Q] (* _Harvey P. Dale_, Nov 18 2024 *)

%K nonn,changed

%O 1,1

%A _David W. Wilson_