|
%I #14 Mar 15 2018 16:40:25
%S 1,2,0,-98,1400,10442,-2400420,182874382,-11026390960,272975496722,
%T 101146071584580,-35170244758056938,8878370234261147000,
%U -2024456851681157735398,406854219864771946133100
%N Expansion of exp(tanh(x)*sin(x)).
%t With[{nn=30},Take[CoefficientList[Series[Exp[Tanh[x]*Sin[x]],{x,0,nn}],x] Range[0,nn]!,{1,-1,2}]] (* _Harvey P. Dale_, Mar 15 2018 *)
%K sign
%O 0,2
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Mar 15 2018
|
