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

53083, 55375, 66163, 88391, 89419, 91699, 104155, 107779, 123623, 127912, 136819, 138859, 140079, 141527, 143323, 145539, 152759, 153175, 164375, 173968, 174643, 184783, 191351, 194296, 196451, 205159, 212783, 214288, 214339, 218968, 219655

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

Crossrefs

Sequence in context: A157758 A250696 A250681 * A155557 A015315 A061330

Adjacent sequences: A031830 A031831 A031832 * A031834 A031835 A031836

Keyword

nonn

Author

David W. Wilson

Status

approved