%I #7 Jul 02 2017 13:19:18
%S 3271,3334,3829,4339,4621,4894,5401,5569,5761,5806,6367,6379,6646,
%T 6964,7341,7357,7597,8317,8467,9069,9121,9463,9549,9631,9721,9892,
%U 10717,10753,10771,10996,11233,11489,11689,11824,11833,12157,12329,12454,12611,12781
%N Period of continued fraction for sqrt(n) contains exactly 52 ones.
%t cf52Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ ContinuedFraction[ s][[2]],1]]==52]; Select[Range[13000],cf52Q] (* _Harvey P. Dale_, Jul 02 2017 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|