A020406 Numbers k such that the continued fraction for sqrt(k) has period 67.

1381, 1789, 2521, 3754, 3994, 5953, 6389, 7349, 7765, 7801, 8297, 8842, 9274, 10253, 12413, 14458, 15349, 15749, 16073, 16229, 19073, 21485, 22433, 24106, 24317, 24506, 24538, 24929, 25577, 25706, 26170, 26773, 26954, 28018, 28345, 30197, 32218, 32290

Offset

1,1

Links

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

Mathematica

cf67Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Length[ ContinuedFraction[ s][[2]]]]==67]; Select[Range[33000], cf67Q] (* Harvey P. Dale, Sep 21 2018 *)

Crossrefs

Cf. A003285.

Sequence in context: A051114 A139667 A031796 * A277632 A241483 A134671

Adjacent sequences: A020403 A020404 A020405 * A020407 A020408 A020409

Keyword

nonn

Author

David W. Wilson

Status

approved