A009496 - OEIS

%I #17 Oct 22 2015 12:23:07

%S 0,1,2,3,-4,-83,-658,-4193,-22440,-83975,120122,7476315,112365332,

%T 1294231525,12752263526,105731717431,610305421872,-1116308339087,

%U -115998206237710,-2570453790514893,-43180432963618900,-622814297059769699,-7810135072307898658

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

%H Eric Weisstein's MathWorld, <a href="http://mathworld.wolfram.com/BellPolynomial.html">Bell Polynomial</a>

%F 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

%t Table[SeriesCoefficient[Sin[Sinh[x] Exp[x]], {x, 0, n}] n!, {n, 0, 20}]

%t Table[2^n Im[BellB[n, I/2]], {n, 0, 20}] (* _Vladimir Reshetnikov_, Oct 22 2015 *)

%Y Cf. A009061, A121868.

%K sign,easy

%O 0,3

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997