%I #7 Feb 25 2020 11:37:47
%S 41827,59599,61771,62875,77851,114091,119695,129823,174031,177331,
%T 193483,211579,217663,230263,236567,237703,238067,248811,255547,
%U 280135,281695,285112,298915,307739,310991,314843,317531,317615,329203,335443,339607
%N Period of continued fraction for sqrt(n) contains exactly 81 ones.
%t cf81Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[ s][[2]],1]]==81]; Select[Range[340000],cf81Q] (* _Harvey P. Dale_, Feb 25 2020 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|