|
%I #13 Jul 30 2017 10:47:56
%S 0,1,2,2,0,-8,-32,184,1984,-5568,-118016,231552,8529920,-11751296,
%T -754714880,596164352,79868821504,-4342886400,-9749056634880,
%U -10035384119296,1296267479826432,3825733461393408,-165153529347768320
%N Expansion of e.g.f.: sinh(tanh(x))*exp(x).
%t With[{nn=30},CoefficientList[Series[Sinh[Tanh[x]]*Exp[x],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jul 30 2017 *)
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Jul 30 2017
|
