A031865 Period of continued fraction for sqrt(n) contains exactly 97 ones.

71371, 72691, 79459, 114271, 151099, 154331, 156599, 163255, 186319, 207047, 214139, 258187, 259139, 259327, 305531, 306979, 320215, 323563, 363883, 391327, 407371, 415067, 418384, 424691, 424943, 448463, 470671, 478867, 490403, 492143

Offset

1,1

Links

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

Mathematica

cf97Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Count[ContinuedFraction[s][[2]], 1]]==97]; Select[Range[500000], cf97Q] (* Harvey P. Dale, Nov 18 2024 *)

Crossrefs

Sequence in context: A226530 A215994 A101250 * A283955 A114661 A119397

Adjacent sequences: A031862 A031863 A031864 * A031866 A031867 A031868

Keyword

nonn

Author

David W. Wilson

Status

approved