A009524 - OEIS

%I #12 Apr 13 2018 10:32:13

%S 0,1,2,0,-8,12,168,-280,-5760,11536,310304,-703296,-23894144,59653440,

%T 2481859968,-6715007104,-333725331456,967972497664,56329065984512,

%U -173764741920768,-11650274400684032,37986612815698944

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

%t With[{nn=30},CoefficientList[Series[Sin[Tanh[x]]*Exp[x],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Apr 13 2018 *)

%K sign,easy

%O 0,3

%A _R. H. Hardin_

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

%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Apr 13 2018