A013174 exp(arctanh(x) + arctan(x)) = 1 + 2*x + 4/2!*x^2 + 8/3!*x^3 + 16/4!*x^4 + 80/5!*x^5 +...

1, 2, 4, 8, 16, 80, 640, 4160, 21760, 177920, 2291200, 25548800, 223436800, 2560563200, 44438118400, 702660608000, 8725110784000, 129295622144000, 2796896567296000, 57197188186112000, 926039081943040000

Offset

0,2

Links

Table of n, a(n) for n=0..20.

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[ArcTanh[x]+ArcTan[x]], {x, 0, nn}], x]Range[0, nn]!] (* Harvey P. Dale, Jan 12 2013 *)

Crossrefs

Sequence in context: A051299 A097049 A119490 * A283195 A233294 A287706

Adjacent sequences: A013171 A013172 A013173 * A013175 A013176 A013177

Keyword

nonn

Author

Patrick Demichel (patrick.demichel(AT)hp.com)

Extensions

Definition modified by Harvey P. Dale, Jan 12 2013

Status

approved