A020444 Numbers k such that the period of the continued fraction for sqrt(k) contains exactly eight 1's.

94, 97, 124, 134, 139, 151, 159, 163, 190, 201, 217, 241, 249, 263, 276, 277, 301, 302, 311, 340, 343, 347, 356, 367, 379, 386, 397, 417, 433, 449, 461, 467, 472, 474, 481, 513, 519, 521, 547, 549, 587, 596, 637, 641, 643, 656, 664, 666, 670, 700, 708, 750, 758, 762

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] == 8]; Select[Range[1000], q] (* Amiram Eldar, Aug 09 2025 *)

Crossrefs

Sequence in context: A033414 A218053 A118684 * A045301 A146336 A269988

Adjacent sequences: A020441 A020442 A020443 * A020445 A020446 A020447

Keyword

nonn

Author

David W. Wilson

Status

approved