A012591 tanh(arcsinh(x)*exp(x)) = x+2/2!*x^2-24/4!*x^4-140/5!*x^5-200/6!*x^6...

0, 1, 2, 0, -24, -140, -200, 5096, 63616, 282192, -3220832, -80931136, -710613376, 3394272960, 211897855104, 3116854010752, 2173449924608, -951933369204480, -22125765748465152, -140624117764880384

Offset

0,3

Links

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

Mathematica

With[{nn=20}, Rest[CoefficientList[Series[Tanh[ArcSinh[x]Exp[x]], {x, 0, nn}], x]Range[0, nn]!]] (* Harvey P. Dale, Mar 28 2012 *)

Crossrefs

Sequence in context: A052602 A012588 A012290 * A319221 A009799 A109582

Adjacent sequences: A012588 A012589 A012590 * A012592 A012593 A012594

Keyword

sign

Author

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

Extensions

Prepended missing a(0)=0 from Vaclav Kotesovec, Oct 31 2013

Status

approved