login
Period of continued fraction for sqrt(n) contains exactly 17 ones.
0

%I #7 May 16 2019 17:35:51

%S 1147,1891,4048,6119,6179,8591,8771,8784,9064,9699,9879,10507,10735,

%T 13115,13659,13667,14659,14755,17064,17464,19367,20776,21987,23287,

%U 23384,24295,24656,24824,25011,25480,27176,27251,27643,27679,30155,31027,31903

%N Period of continued fraction for sqrt(n) contains exactly 17 ones.

%t cf17Q[n_]:=Module[{s=Sqrt[n],cf},If[IntegerQ[s],1,Count[ ContinuedFraction[ s][[2]],1]]==17]; Select[Range[32000],cf17Q] (* _Harvey P. Dale_, May 16 2019 *)

%K nonn

%O 1,1

%A _David W. Wilson_