A031823 Period of continued fraction for sqrt(n) 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

Table of n, a(n) for n=1..32.

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: A203875 A252604 A340062 * A205035 A205283 A251354

Adjacent sequences: A031820 A031821 A031822 * A031824 A031825 A031826

Keyword

nonn

Author

David W. Wilson

Status

approved