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