The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #13 Feb 11 2018 16:56:16
%S 0,1,2,2,8,72,272,128,1024,51264,275072,-1287680,-7871488,206883328,
%T 1471104000,-19670491136,-159374082048,3293417492480,29559475576832,
%U -595302140223488,-5903345189421056,137666774002696192
%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_, Feb 11 2018 *)
%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 previous Mathematica program replaced by _Harvey P. Dale_, Feb 11 2018