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

6031, 18643, 38263, 42559, 44323, 49039, 60131, 75067, 89464, 93304, 93328, 94051, 94119, 97399, 98375, 99299, 110171, 119848, 119995, 128927, 132355, 143464, 144055, 147911, 148843, 152227, 156871, 158107, 162328, 164755, 166071, 167587

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

Crossrefs

Sequence in context: A236975 A206113 A237864 * A203352 A064248 A202895

Adjacent sequences: A031818 A031819 A031820 * A031822 A031823 A031824

Keyword

nonn

Author

David W. Wilson

Status

approved