|
%I
%S 35011,38191,51671,72479,75763,79864,86395,93991,105283,115768,139855,
%T 152447,164728,170704,171856,174479,175195,176287,179219,184507,
%U 197467,197723,204179,211479,219064,230231,239992,242755,245391,279827,284959
%N Period of continued fraction for sqrt(n) contains exactly 67 ones.
%t cf67Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],False,Count[ ContinuedFraction[ s] [[2]],1]==67]]; Select[Range[300000],cf67Q] (* _Harvey P. Dale_, Dec 17 2013 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
