A031839 Numbers k such that the period of the continued fraction for sqrt(k) contains exactly 71 ones.

16039, 45571, 49051, 59911, 70375, 97219, 120143, 121903, 122931, 125623, 129667, 136024, 142091, 144664, 145867, 147431, 148391, 152056, 153064, 162403, 163903, 178551, 179767, 180583, 186359, 191287, 216143, 218023, 226615, 227971, 231835

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

cf71Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==71]; Select[Range[240000], cf71Q] (* Harvey P. Dale, Dec 26 2018 *)

Crossrefs

Sequence in context: A204942 A163112 A202420 * A062674 A274680 A286662

Adjacent sequences: A031836 A031837 A031838 * A031840 A031841 A031842

Keyword

nonn

Author

David W. Wilson

Status

approved