A020385 Numbers k such that the continued fraction for sqrt(k) has period 46.

694, 739, 859, 883, 1174, 1459, 1499, 1569, 1828, 2203, 2317, 2489, 2494, 2506, 2536, 2577, 2776, 2803, 3321, 3406, 3487, 3524, 3544, 3547, 3622, 3643, 3681, 3716, 3837, 3979, 4091, 4369, 4438, 4451, 4502, 4642, 4696, 4906, 4965, 4997, 5093, 5139, 5608

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 && Length[c[[2]]] == 46]; Select[Range[6000], q] (* Amiram Eldar, Aug 23 2025 *)

Crossrefs

Cf. A003285.

Sequence in context: A129913 A031946 A049356 * A004242 A177215 A185861

Adjacent sequences: A020382 A020383 A020384 * A020386 A020387 A020388

Keyword

nonn

Author

David W. Wilson

Status

approved