A031867 - OEIS

%I #11 Jun 20 2024 12:17:58

%S 48379,56191,69451,75007,107875,118567,137059,145336,157399,190819,

%T 194111,230591,230839,248023,253991,261551,287459,318667,325816,

%U 343759,368019,370239,391911,392491,409907,424591,442216,446395,448743,460816

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

%H Chai Wah Wu, <a href="/A031867/b031867.txt">Table of n, a(n) for n = 1..1000</a>

%t cf99Q[n_]:=With[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==99]; Select[ Range[461000],cf99Q] (* _Harvey P. Dale_, Jun 20 2024 *)

%K nonn

%O 1,1

%A _David W. Wilson_