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

19291, 27547, 38503, 68191, 78343, 83767, 84671, 93451, 96403, 98099, 105256, 107755, 109691, 117931, 120184, 129343, 132136, 154936, 164671, 168667, 171523, 172551, 175015, 175871, 178523, 181795, 184915, 185739, 187999, 189191, 190087

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

Crossrefs

Sequence in context: A251803 A184667 A280555 * A252901 A126721 A385340

Adjacent sequences: A031828 A031829 A031830 * A031832 A031833 A031834

Keyword

nonn

Author

David W. Wilson

Status

approved