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

39407, 45199, 48151, 52471, 54199, 56023, 71839, 72851, 74104, 82315, 90875, 91687, 101263, 112487, 113375, 114119, 115427, 118255, 123823, 127495, 129431, 130471, 131895, 140995, 142839, 145839, 156339, 160547, 163291, 173336, 176839, 184483

Offset

1,1

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Mathematica

cf55Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==55]; Select[Range[185000], cf55Q] (* Harvey P. Dale, Dec 15 2020 *)

Crossrefs

Sequence in context: A252604 A340062 A384402 * A205035 A205283 A251354

Adjacent sequences: A031820 A031821 A031822 * A031824 A031825 A031826

Keyword

nonn

Author

David W. Wilson

Status

approved