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

8254, 8779, 10159, 10921, 11071, 11971, 12622, 13129, 13183, 13249, 13849, 14998, 15046, 15313, 15559, 15607, 15772, 15781, 16189, 16444, 17431, 17662, 17911, 19774, 20197, 20563, 20857, 21569, 22033, 23524, 23774, 24561, 24733, 25257, 25582, 25749

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

Crossrefs

Sequence in context: A045056 A221482 A237221 * A327418 A168664 A345593

Adjacent sequences: A031847 A031848 A031849 * A031851 A031852 A031853

Keyword

nonn

Author

David W. Wilson

Status

approved