login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%I #7 Dec 24 2012 19:52:31

%S 20875,25559,25591,32875,39447,50879,51847,57955,62419,70599,70871,

%T 75947,77087,78055,82711,84639,86995,95839,96472,98059,98651,100951,

%U 103000,105419,105671,107271,108824,112144,117107,119755,123163,126355,128547

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

%t cf45Q[n_]:=Module[{c=Sqrt[n]},!IntegerQ[c]&&Count[ContinuedFraction[ c] [[2]],1]==45]; Select[Range[150000],cf45Q] (* _Harvey P. Dale_, Dec 24 2012 *)

%K nonn

%O 1,1

%A _David W. Wilson_