OFFSET
0,3
LINKS
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
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved