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

9934, 10294, 10684, 10924, 11719, 12049, 12481, 12646, 13876, 14044, 14116, 14869, 14941, 15439, 16294, 16363, 16381, 16489, 17239, 17491, 17551, 18131, 18196, 19219, 19561, 20269, 21601, 21649, 22279, 22966, 23017, 23557, 23846, 23971, 24238, 24421

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

Crossrefs

Sequence in context: A212401 A252227 A252622 * A252573 A266917 A031858

Adjacent sequences: A031853 A031854 A031855 * A031857 A031858 A031859

Keyword

nonn

Author

David W. Wilson

Status

approved