A020372 Numbers k such that the continued fraction for sqrt(k) has period 33.

613, 937, 1033, 1114, 1693, 2785, 3274, 3373, 3461, 3593, 3802, 3946, 4397, 4589, 4709, 4813, 4817, 5242, 5281, 6997, 7345, 7837, 7937, 8266, 8713, 9818, 9901, 9941, 10229, 10330, 11729, 11789, 12077, 12130, 12517, 12842, 12970, 13165, 13322, 14138

Offset

1,1

Links

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

Mathematica

cf33Q[n_]:=Module[{s=Sqrt[n]}, If[IntegerQ[s], 1, Length[ ContinuedFraction[ s][[2]]]]==33]; Select[Range[15000], cf33Q] (* Harvey P. Dale, Feb 02 2022 *)

Crossrefs

Sequence in context: A100364 A142435 A090869 * A032657 A117503 A165771

Adjacent sequences: A020369 A020370 A020371 * A020373 A020374 A020375

Keyword

nonn

Author

David W. Wilson

Status

approved