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

0, 1, 2, 2, 8, 72, 272, 128, 1024, 51264, 275072, -1287680, -7871488, 206883328, 1471104000, -19670491136, -159374082048, 3293417492480, 29559475576832, -595302140223488, -5903345189421056, 137666774002696192

Offset

0,3

Links

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

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[Tanh[x]*Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Feb 11 2018 *)

Crossrefs

Sequence in context: A354118 A224766 A003181 * A005615 A048617 A000615

Adjacent sequences: A009613 A009614 A009615 * A009617 A009618 A009619

Keyword

sign,easy

Author

R. H. Hardin

Extensions

Extended with signs by Olivier Gérard, Mar 15 1997

Definition clarified and previous Mathematica program replaced by Harvey P. Dale, Feb 11 2018

Status

approved