|
%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_
|
