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

68599, 75451, 86759, 124504, 139471, 161963, 177187, 186407, 190571, 195011, 199231, 211091, 223511, 229991, 230971, 231291, 233383, 256999, 270439, 274511, 278755, 284871, 286603, 287039, 307000, 308632, 318779, 318859, 321175, 328831

Offset

1,1

Links

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

Mathematica

q[k_] := Module[{c = ContinuedFraction[Sqrt[k]]}, Length[c] == 2 && Count[c[[2]], 1] == 77]; Select[Range[150000], q] (* Amiram Eldar, Aug 13 2025 *)

Crossrefs

Sequence in context: A205061 A093217 A224426 * A249315 A031863 A213702

Adjacent sequences: A031842 A031843 A031844 * A031846 A031847 A031848

Keyword

nonn

Author

David W. Wilson

Status

approved