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

4909, 5839, 7534, 7759, 8011, 8191, 8956, 9091, 9574, 10729, 10981, 12676, 12967, 13081, 13633, 13789, 13993, 14419, 14509, 14737, 15172, 15406, 16012, 16101, 16417, 16516, 16651, 16771, 16981, 17021, 17092, 17293, 17308, 17788, 17921, 17977, 18041

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] == 66]; Select[Range[20000], q] (* Amiram Eldar, Aug 13 2025 *)

Crossrefs

Sequence in context: A031568 A083607 A168028 * A031634 A250908 A179144

Adjacent sequences: A031831 A031832 A031833 * A031835 A031836 A031837

Keyword

nonn

Author

David W. Wilson

Status

approved