A031785 Numbers k such that the period of the continued fraction for sqrt(k) contains exactly 17 ones.

1147, 1891, 4048, 6119, 6179, 8591, 8771, 8784, 9064, 9699, 9879, 10507, 10735, 13115, 13659, 13667, 14659, 14755, 17064, 17464, 19367, 20776, 21987, 23287, 23384, 24295, 24656, 24824, 25011, 25480, 27176, 27251, 27643, 27679, 30155, 31027, 31903

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

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 *)

Crossrefs

Sequence in context: A190924 A196779 A180344 * A274297 A074255 A234684

Adjacent sequences: A031782 A031783 A031784 * A031786 A031787 A031788

Keyword

nonn

Author

David W. Wilson

Status

approved