A031838 - OEIS

%I #7 Dec 21 2016 16:53:54

%S 4846,5149,6211,6763,7036,7561,9319,9793,9931,10204,10756,10831,11377,

%T 11761,11841,11929,12763,12979,13582,13798,13921,14109,14767,14788,

%U 15076,15253,15427,15721,16228,16729,16759,16927,17269,17396,17467,17481,17641

%N Period of continued fraction for sqrt(n) contains exactly 70 ones.

%t cf70Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ ContinuedFraction[ s][[2]],1]]==70]; Select[Range[18000],cf70Q] (* _Harvey P. Dale_, Dec 21 2016 *)

%K nonn

%O 1,1

%A _David W. Wilson_