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

8611, 18571, 22507, 24539, 24991, 29455, 29464, 29539, 29639, 29891, 35047, 36247, 40259, 42639, 44923, 49651, 52243, 75371, 76171, 78371, 83536, 84251, 84799, 89027, 91191, 99203, 101023, 104248, 105347, 106195, 116656, 119416, 121183, 123467

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

Crossrefs

Sequence in context: A370970 A381073 A116326 * A252471 A250589 A190467

Adjacent sequences: A031806 A031807 A031808 * A031810 A031811 A031812

Keyword

nonn

Author

David W. Wilson

Status

approved