A031793 Period of continued fraction for sqrt(n) contains exactly 25 ones.

3799, 7363, 10375, 11155, 11999, 12283, 15695, 16591, 17819, 18616, 18971, 19511, 20787, 23707, 27371, 31191, 31655, 31855, 34571, 36895, 37496, 38003, 39376, 39952, 40984, 41531, 41623, 41995, 42875, 42984, 45655, 46895, 50095, 51875, 54352, 54731

Offset

1,1

Links

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

Mathematica

cf25Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==25]; Select[Range[55000], cf25Q] (* Harvey P. Dale, Apr 12 2019 *)

Crossrefs

Sequence in context: A284872 A253280 A251518 * A234765 A228545 A179174

Adjacent sequences: A031790 A031791 A031792 * A031794 A031795 A031796

Keyword

nonn

Author

David W. Wilson

Status

approved