A009829 - OEIS

%I #13 Dec 28 2021 13:17:26

%S 0,1,2,1,0,21,88,-27,-704,6121,50464,-153559,-2089216,13064637,

%T 173223040,-996722035,-16120801280,114653539281,2032098365952,

%U -15657589156655,-311227464130560,2678537704263781,58380271774087168

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

%t With[{nn=30},CoefficientList[Series[Tanh[x]*Exp[Sinh[x]],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Dec 28 2021 *)

%K sign,easy

%O 0,3

%A _R. H. Hardin_

%E Extended with signs by _Olivier Gérard_, Mar 15 1997

%E Previous Mathematica program replaced and definition clarified by _Harvey P. Dale_, Dec 28 2021