A012710 Expansion of e.g.f. sin(arctanh(x) * exp(x)).

0, 1, 2, 4, 0, -60, -680, -5504, -45696, -356080, -2998112, -23985216, -210124288, -1616818112, -13420660864, -52229820928, 283969097728, 28575615328512, 648822348255744, 17074162547880960, 350789663754797056

Offset

0,3

Links

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

Example

x + 2/2!*x^2 + 4/3!*x^3 - 60/5!*x^5 - 680/6!*x^6 ...

Mathematica

With[{nn=20}, CoefficientList[Series[Sin[ArcTanh[x]Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 07 2019 *)

Crossrefs

Sequence in context: A012716 A173220 A012362 * A333367 A287761 A009512

Adjacent sequences: A012707 A012708 A012709 * A012711 A012712 A012713

Keyword

sign

Author

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

Extensions

a(0) inserted and title improved by Sean A. Irvine, Jul 24 2018

Status

approved