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

12871, 13624, 20056, 22207, 23111, 29083, 33823, 35263, 37219, 39055, 45355, 45875, 48856, 51256, 57875, 60571, 64195, 64619, 64699, 65095, 65391, 67000, 68515, 69979, 70751, 74995, 75203, 75231, 77203, 80464, 90443, 97696, 98551, 104144, 104175

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

Crossrefs

Sequence in context: A177312 A172609 A172560 * A244171 A245793 A251922

Adjacent sequences: A031802 A031803 A031804 * A031806 A031807 A031808

Keyword

nonn

Author

David W. Wilson

Status

approved