%I #7 Feb 01 2015 15:44:53
%S 16459,31831,55123,57479,64024,69551,73531,80419,91451,92231,96247,
%T 108595,110539,115591,122419,141151,154192,156279,157631,159559,
%U 159991,160555,165111,165831,166531,166599,173656,183563,186803,187083,188803
%N Period of continued fraction for sqrt(n) contains exactly 61 ones.
%t cf61Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[ s] [[2]],1]]==61]; Select[Range[200000],cf61Q] (* _Harvey P. Dale_, Feb 01 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|