login
A009496
Expansion of e.g.f. sin(sinh(x)*exp(x)).
1
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
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
Sequence in context: A142959 A173573 A037395 * A263281 A191422 A008405
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
STATUS
approved