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

7303, 9487, 15311, 16219, 23363, 24231, 28487, 28779, 29503, 29987, 32287, 32431, 35800, 38311, 38363, 38776, 39976, 40003, 41567, 42136, 47759, 50200, 53679, 54863, 57187, 59944, 59987, 68375, 68696, 68735, 69459, 72847, 76235, 77031, 77063, 77499

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

Crossrefs

Sequence in context: A260000 A303876 A358855 * A250638 A206080 A253939

Adjacent sequences: A031796 A031797 A031798 * A031800 A031801 A031802

Keyword

nonn

Author

David W. Wilson

Status

approved