login
A009615
Expansion of e.g.f.: sinh(tanh(x))*exp(x).
0
0, 1, 2, 2, 0, -8, -32, 184, 1984, -5568, -118016, 231552, 8529920, -11751296, -754714880, 596164352, 79868821504, -4342886400, -9749056634880, -10035384119296, 1296267479826432, 3825733461393408, -165153529347768320
OFFSET
0,3
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Sinh[Tanh[x]]*Exp[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jul 30 2017 *)
CROSSREFS
Sequence in context: A364288 A009187 A009803 * A184011 A079194 A179198
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jul 30 2017
STATUS
approved