A009496 Expansion of e.g.f. sin(sinh(x)*exp(x)).

0, 1, 2, 3, -4, -83, -658, -4193, -22440, -83975, 120122, 7476315, 112365332, 1294231525, 12752263526, 105731717431, 610305421872, -1116308339087, -115998206237710, -2570453790514893, -43180432963618900, -622814297059769699, -7810135072307898658

Offset: 0

Author

R. H. Hardin

Keywords

• sign
• easy

Links

• Eric Weisstein's MathWorld, Bell Polynomial

Crossrefs

Cf. A009061, A121868.

Programs

Mathematica

Table[SeriesCoefficient[Sin[Sinh[x] Exp[x]], {x, 0, n}] n!, {n, 0, 20}]
Table[2^n Im[BellB[n, I/2]], {n, 0, 20}] (* Vladimir Reshetnikov, Oct 22 2015 *)

Formula

a(n) = 2^n*Im(B_n(i/2)), where B_n(x) is n-th Bell polynomial, i=sqrt(-1). - Vladimir Reshetnikov, Oct 22 2015

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997