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

1759, 1894, 2083, 2452, 2524, 2593, 2641, 2764, 2767, 3067, 3169, 3463, 3673, 3694, 4129, 4276, 4333, 4341, 4558, 4561, 4603, 4681, 4723, 4783, 4897, 5062, 5113, 5173, 5233, 5272, 5284, 5294, 5349, 5449, 5541, 5553, 5566, 5653, 5749, 5833, 5877, 6041

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

Crossrefs

Sequence in context: A252635 A213459 A186012 * A020419 A141287 A238050

Adjacent sequences: A031799 A031800 A031801 * A031803 A031804 A031805

Keyword

nonn

Author

David W. Wilson

Status

approved