A031838 Period of continued fraction for sqrt(n) contains exactly 70 ones.

4846, 5149, 6211, 6763, 7036, 7561, 9319, 9793, 9931, 10204, 10756, 10831, 11377, 11761, 11841, 11929, 12763, 12979, 13582, 13798, 13921, 14109, 14767, 14788, 15076, 15253, 15427, 15721, 16228, 16729, 16759, 16927, 17269, 17396, 17467, 17481, 17641

Offset

1,1

Links

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

Mathematica

cf70Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]==70]; Select[Range[18000], cf70Q] (* Harvey P. Dale, Dec 21 2016 *)

Crossrefs

Sequence in context: A183589 A185990 A215949 * A331664 A031826 A243835

Adjacent sequences: A031835 A031836 A031837 * A031839 A031840 A031841

Keyword

nonn

Author

David W. Wilson

Status

approved