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

88687, 93883, 108487, 123496, 137107, 152359, 173455, 181879, 190411, 219235, 220499, 222119, 225107, 226687, 245219, 247336, 253795, 254531, 265139, 293771, 296695, 299791, 301855, 302584, 303883, 313043, 314863, 319019, 319303, 349363

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

Crossrefs

Sequence in context: A022201 A345566 A345821 * A346998 A022548 A022013

Adjacent sequences: A031854 A031855 A031856 * A031858 A031859 A031860

Keyword

nonn

Author

David W. Wilson

Status

approved