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

30031, 73639, 108331, 115543, 156911, 161587, 164536, 168607, 169451, 175751, 176563, 176875, 184799, 186127, 190231, 194299, 208027, 224939, 230287, 243139, 244019, 259011, 265731, 268483, 283000, 290296, 291311, 292967, 298531, 302743

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

Crossrefs

Sequence in context: A147573 A046324 A138206 * A066576 A104877 A237031

Adjacent sequences: A031850 A031851 A031852 * A031854 A031855 A031856

Keyword

nonn

Author

David W. Wilson

Status

approved