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

3436, 3919, 3949, 4204, 4309, 5659, 6589, 6934, 7351, 7484, 8167, 8521, 8677, 8716, 8953, 9388, 9502, 9697, 9967, 10111, 10124, 10214, 10558, 10627, 10723, 10828, 11533, 11636, 11653, 12091, 12334, 12609, 12697, 12718, 12901, 12907, 12949, 13297

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] == 56]; Select[Range[14000], q] (* Amiram Eldar, Aug 12 2025 *)

Crossrefs

Sequence in context: A244170 A245792 A046253 * A254093 A254086 A324679

Adjacent sequences: A031821 A031822 A031823 * A031825 A031826 A031827

Keyword

nonn

Author

David W. Wilson

Status

approved