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

2731, 3214, 3469, 3646, 4041, 4156, 4189, 4261, 4678, 4789, 4831, 4996, 5212, 5374, 5701, 5971, 6172, 6193, 6343, 6703, 6709, 6982, 7081, 7389, 7529, 7741, 7771, 7894, 7924, 8054, 8156, 8654, 8947, 9127, 9451, 9621, 9806, 9913, 9929, 9981, 10151, 10468

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] == 44]; Select[Range[11000], q] (* Amiram Eldar, Aug 11 2025 *)

Crossrefs

Sequence in context: A043579 A166780 A068305 * A308800 A104699 A116461

Adjacent sequences: A031809 A031810 A031811 * A031813 A031814 A031815

Keyword

nonn

Author

David W. Wilson

Status

approved