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
Links
- Eric Weisstein's MathWorld, Bell Polynomial
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