%I #9 Dec 18 2015 11:00:32
%S 3019,3331,3361,3901,4057,4486,4519,5326,5881,5923,6094,6121,6166,
%T 6361,6493,6988,7069,7209,7318,7333,7393,7621,7814,8206,8287,8353,
%U 8369,8641,8644,8781,8887,9189,9311,9481,9489,9493,9598,10144,10174,10267,10417
%N Period of continued fraction for sqrt(n) contains exactly 48 ones.
%t cf48Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ ContinuedFraction[ s] [[2]], 1]]==48]; Select[Range[11000],cf48Q] (* _Harvey P. Dale_, Dec 18 2015 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|