A031792 Period of continued fraction for sqrt(n) contains exactly 24 ones.

604, 721, 1201, 1341, 1348, 1483, 1549, 1663, 1747, 1774, 1841, 1879, 1966, 2161, 2194, 2281, 2377, 2494, 2531, 2653, 2662, 2699, 2749, 2830, 2921, 2949, 3041, 3079, 3089, 3097, 3103, 3187, 3236, 3309, 3389, 3412, 3424, 3430, 3448, 3473, 3529, 3556

Offset

1,1

Links

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

Mathematica

cf24Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==24]; Select[Range[3600], cf24Q] (* Harvey P. Dale, Dec 11 2018 *)

Crossrefs

Sequence in context: A250907 A209550 A151626 * A020383 A234109 A321269

Adjacent sequences: A031789 A031790 A031791 * A031793 A031794 A031795

Keyword

nonn

Author

David W. Wilson

Status

approved