login
A031785
Period of continued fraction for sqrt(n) contains exactly 17 ones.
0
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
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
KEYWORD
nonn
STATUS
approved