A031826 Period of continued fraction for sqrt(n) contains exactly 58 ones.

4861, 5086, 5791, 6022, 6199, 7177, 7489, 7492, 7951, 8061, 9001, 9343, 9439, 9748, 9921, 10334, 10837, 11149, 11173, 11677, 12004, 12361, 12681, 12897, 13009, 13259, 13421, 13619, 13641, 13759, 13777, 14143, 14158, 14317, 14341, 14353, 14709, 14797

Offset

1,1

Links

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

Mathematica

cf58Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==58]; Select[Range[15000], cf58Q] (* Harvey P. Dale, Mar 17 2015 *)

Crossrefs

Sequence in context: A215949 A031838 A331664 * A243835 A124088 A244106

Adjacent sequences: A031823 A031824 A031825 * A031827 A031828 A031829

Keyword

nonn

Author

David W. Wilson

Status

approved