A031852 Period of continued fraction for sqrt(n) contains exactly 84 ones.

8719, 8821, 10189, 11734, 11974, 14449, 14524, 15361, 15838, 16843, 16921, 17359, 17509, 17869, 18919, 19132, 19141, 19369, 19537, 20404, 20589, 21481, 21661, 22564, 22861, 23181, 24028, 24268, 24484, 24669, 25393, 25617, 26254, 26302, 26308, 26974

Offset

1,1

Links

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

Mathematica

cf841Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ ContinuedFraction[ s][[2]], 1]]==84]; Select[Range[27000], cf841Q] (* Harvey P. Dale, Dec 25 2017 *)

Crossrefs

Sequence in context: A222815 A233679 A266578 * A115614 A165630 A250999

Adjacent sequences: A031849 A031850 A031851 * A031853 A031854 A031855

Keyword

nonn

Author

David W. Wilson

Status

approved