A031846 Period of continued fraction for sqrt(n) contains exactly 78 ones.

6694, 7219, 7981, 8809, 9199, 9391, 11239, 12229, 13441, 14452, 14881, 15139, 15214, 15901, 16681, 17839, 17902, 18307, 18373, 18583, 18671, 18862, 18958, 18961, 20113, 20569, 20833, 20983, 21309, 21429, 21501, 21673, 21729, 21748, 22411, 23038, 23039

Offset

1,1

Links

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

Mathematica

cf78Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], False, Count[ ContinuedFraction[ s][[2]], 1]==78]]; Select[Range[25000], cf78Q] (* Harvey P. Dale, May 24 2014 *)

Crossrefs

Sequence in context: A345860 A206008 A358869 * A289516 A239565 A234242

Adjacent sequences: A031843 A031844 A031845 * A031847 A031848 A031849

Keyword

nonn

Author

David W. Wilson

Status

approved