A031864 Period of continued fraction for sqrt(n) contains exactly 96 ones.

10606, 12709, 13591, 15601, 15766, 15814, 16774, 17781, 18451, 19309, 19819, 19996, 20041, 20716, 21796, 22141, 22531, 22597, 23131, 23209, 23389, 24172, 24397, 25054, 26737, 26929, 27309, 27763, 27791, 28627, 28687, 28921, 30577, 30613, 30631, 31102

Offset

1,1

Links

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

Mathematica

cf96Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s] [[2]], 1]]==96]; Select[Range[32000], cf96Q] (* Harvey P. Dale, Jan 28 2017 *)

Crossrefs

Sequence in context: A083977 A082442 A252101 * A184092 A110018 A249229

Adjacent sequences: A031861 A031862 A031863 * A031865 A031866 A031867

Keyword

nonn

Author

David W. Wilson

Status

approved