A020413 Numbers k such that the continued fraction for sqrt(k) has period 74.

2038, 2083, 3193, 3369, 3499, 3841, 3909, 4211, 4219, 4601, 5257, 5446, 5949, 6070, 6457, 6614, 6742, 7169, 7211, 7819, 8193, 8365, 8491, 8626, 8656, 8788, 8833, 9057, 9142, 9227, 9334, 9457, 9557, 9832, 9889, 10036, 10054, 10147, 10259, 10339, 10441

Offset

1,1

Links

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

Mathematica

cf74Q[n_]:=Module[{s=Sqrt[n]}, !IntegerQ[s]&&Length[ContinuedFraction[s][[2]]]==74]; Select[Range[11000], cf74Q] (* Harvey P. Dale, Jul 19 2013 *)

Crossrefs

Cf. A003285.

Sequence in context: A045869 A098808 A212477 * A031806 A186045 A377928

Adjacent sequences: A020410 A020411 A020412 * A020414 A020415 A020416

Keyword

nonn

Author

David W. Wilson

Status

approved