A020412 Numbers k such that the continued fraction for sqrt(k) has period 73.

3541, 5849, 7165, 7501, 8933, 9473, 9857, 11497, 13753, 13901, 14218, 15793, 17597, 18917, 20609, 24202, 24746, 25121, 25906, 25913, 26177, 28465, 29437, 31466, 33185, 33386, 33562, 34913, 35989, 38293, 39565, 39626, 40345, 40762, 41546, 41938, 44761

Offset

1,1

Links

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

Mathematica

cfp73Q[n_]:=Module[{s=Sqrt[n]}, !IntegerQ[s]&&Length[ContinuedFraction[s][[2]]] == 73]; Select[Range[45000], cfp73Q] (* Harvey P. Dale, Feb 26 2013 *)

Crossrefs

Cf. A003285.

Sequence in context: A108003 A176139 A354542 * A220985 A252989 A253309

Adjacent sequences: A020409 A020410 A020411 * A020413 A020414 A020415

Keyword

nonn

Author

David W. Wilson

Status

approved