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,3

Links

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

Eric Weisstein's MathWorld, Bell Polynomial

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

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 *)

Crossrefs

Cf. A009061, A121868.

Sequence in context: A142959 A173573 A037395 * A263281 A191422 A008405

Adjacent sequences: A009493 A009494 A009495 * A009497 A009498 A009499

Keyword

sign,easy

Author

R. H. Hardin

Extensions

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

Status

approved