login
A020438
Numbers k such that the continued fraction for sqrt(k) has period 99.
0
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
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
KEYWORD
nonn
STATUS
approved