A020438 Numbers k such that the continued fraction for sqrt(k) has period 99.

4201, 4801, 5449, 6073, 7333, 7741, 8369, 11089, 12073, 13121, 13621, 15754, 16285, 17389, 18385, 19429, 21589, 21697, 23962, 24181, 24685, 25997, 26281, 26513, 26842, 29098, 29593, 29914, 33053, 35461, 36149, 37090, 39637, 39733, 40265, 42293, 43669

Offset

1,1

Links

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

Mathematica

cf99Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Length[ ContinuedFraction[ s][[2]]]]==99]; Select[Range[44000], cf99Q] (* Harvey P. Dale, Aug 26 2017 *)

Crossrefs

Sequence in context: A252316 A103614 A210330 * A002241 A059005 A212613

Adjacent sequences: A020435 A020436 A020437 * A020439 A020440 A020441

Keyword

nonn

Author

David W. Wilson

Status

approved