%I
%S 14899,32731,37327,37391,43279,44339,44407,51883,55379,56291,58879,
%T 66712,67024,68391,72979,74639,76859,86999,87599,89183,92035,93631,
%U 96091,102875,110723,111655,111743,112591,113211,116339,117367,118279,122488
%N Period of continued fraction for sqrt(n) contains exactly 47 ones.
%t cf47Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==47]; Select[Range[125000],cf47Q] (* _Harvey P. Dale_, Jan 06 2019 *)
%K nonn
%O 1,1
%A _David W. Wilson_
