A031784 Period of continued fraction for sqrt(n) contains exactly 16 ones.

421, 463, 541, 571, 613, 661, 673, 718, 719, 739, 763, 764, 814, 821, 883, 921, 937, 956, 981, 1061, 1081, 1099, 1117, 1121, 1125, 1135, 1174, 1237, 1249, 1252, 1270, 1390, 1413, 1423, 1441, 1459, 1468, 1477, 1511, 1583, 1651, 1657, 1661, 1676, 1723, 1724

Offset

1,1

Links

Table of n, a(n) for n=1..46.

Mathematica

cf16Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]==16]; Select[Range[2000], cf16Q] (* Harvey P. Dale, Mar 14 2018 *)

Crossrefs

Sequence in context: A198163 A014890 A159589 * A268859 A051648 A217497

Adjacent sequences: A031781 A031782 A031783 * A031785 A031786 A031787

Keyword

nonn

Author

David W. Wilson

Status

approved