%I #7 Nov 26 2018 12:01:55
%S 35179,51811,68083,70723,75499,90331,114211,117907,118003,133651,
%T 138919,145147,148231,156811,159127,178471,181451,183847,184471,
%U 191875,201379,205099,212711,230887,231016,231295,232211,245335,252407,265631,268087
%N Period of continued fraction for sqrt(n) contains exactly 87 ones.
%t cf87Q[n_]:=Module[{s=Sqrt[n]},If[IntegerQ[s],1,Count[ContinuedFraction[s][[2]],1]]==87]; Select[Range[270000],cf87Q] (* _Harvey P. Dale_, Nov 26 2018 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|