A009615 Expansion of e.g.f.: sinh(tanh(x))*exp(x).

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

Links

Table of n, a(n) for n=0..22.

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

Adjacent sequences: A009612 A009613 A009614 * A009616 A009617 A009618

Keyword

sign,easy

Author

R. H. Hardin

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