%I #7 Mar 17 2015 12:48:06
%S 4861,5086,5791,6022,6199,7177,7489,7492,7951,8061,9001,9343,9439,
%T 9748,9921,10334,10837,11149,11173,11677,12004,12361,12681,12897,
%U 13009,13259,13421,13619,13641,13759,13777,14143,14158,14317,14341,14353,14709,14797
%N Period of continued fraction for sqrt(n) contains exactly 58 ones.
%t cf58Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==58]; Select[Range[15000],cf58Q] (* _Harvey P. Dale_, Mar 17 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|