|
%I #14 May 07 2021 17:32:25
%S 1,1,1,-4,-19,-8,397,1752,-7943,-117312,-64551,7882624,43466469,
%T -537535360,-7570028763,27307332608,1224976528753,2518262718464,
%U -203222727578703,-1691557864632320,33945910273599581,611413449329426432
%N Expansion of exp(tanh(x)*cos(x)).
%t With[{nn=30},CoefficientList[Series[Exp[Tanh[x]*Cos[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, May 07 2021 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, May 07 2021
|
