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