%I #7 Dec 25 2017 12:43:38
%S 8719,8821,10189,11734,11974,14449,14524,15361,15838,16843,16921,
%T 17359,17509,17869,18919,19132,19141,19369,19537,20404,20589,21481,
%U 21661,22564,22861,23181,24028,24268,24484,24669,25393,25617,26254,26302,26308,26974
%N Period of continued fraction for sqrt(n) contains exactly 84 ones.
%t cf841Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ ContinuedFraction[ s][[2]],1]]==84]; Select[Range[27000],cf841Q] (* _Harvey P. Dale_, Dec 25 2017 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|