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

4111, 4174, 4741, 4951, 5581, 6406, 6421, 6529, 7039, 7201, 7411, 7549, 7723, 7849, 8038, 8086, 8212, 9124, 9403, 9769, 10129, 10141, 10321, 10429, 11161, 11587, 11596, 11731, 11878, 11989, 12021, 12034, 12196, 12686, 13291, 13329, 13666, 13681, 14137

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

Crossrefs

Sequence in context: A204530 A204526 A206342 * A205581 A061325 A043677

Adjacent sequences: A031825 A031826 A031827 * A031829 A031830 A031831

Keyword

nonn

Author

David W. Wilson

Status

approved