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

5854, 6169, 6619, 7246, 7369, 8089, 8278, 8329, 8419, 8509, 8971, 9406, 9649, 10084, 10453, 10663, 10702, 11329, 11593, 11743, 11812, 12429, 12451, 12583, 12661, 12703, 12841, 13057, 13252, 13449, 13941, 13963, 14083, 14361, 15669, 15673, 16091, 16273

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

Crossrefs

Sequence in context: A013888 A280446 A248083 * A297660 A219008 A020416

Adjacent sequences: A031827 A031828 A031829 * A031831 A031832 A031833

Keyword

nonn

Author

David W. Wilson

Status

approved