A031835 - OEIS

%I #8 Dec 17 2013 09:13:31

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