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

57619, 60499, 80551, 80875, 101551, 114871, 119707, 126283, 126619, 133816, 151843, 154379, 156067, 172379, 205147, 206824, 210291, 210835, 220651, 235019, 239131, 239651, 247351, 261019, 263407, 273939, 283691, 287471, 292139, 302031

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] == 93]; Select[Range[100000], q] (* Amiram Eldar, Aug 14 2025 *)

Crossrefs

Sequence in context: A352244 A233643 A166195 * A119887 A188256 A124729

Adjacent sequences: A031858 A031859 A031860 * A031862 A031863 A031864

Keyword

nonn

Author

David W. Wilson

Status

approved