|
%I #13 Apr 09 2021 18:43:12
%S 0,1,2,4,8,12,8,-128,-960,-5232,-24416,-54848,174976,5325504,55072384,
%T 403442176,2417174528,558723328,-157596298752,-2994514283520,
%U -36515570849792,-295655443772416,-1639992400689152,17110494845845504
%N Expansion of tan(sin(x))*exp(x).
%t With[{nn=30},CoefficientList[Series[Tan[Sin[x]]*Exp[x],{x,0,nn}],x] Range[ 0,nn]!] (* _Harvey P. Dale_, Apr 09 2021 *)
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier Gérard_, Mar 15 1997
%E Previous Mathematica program replaced by _Harvey P. Dale_, Apr 09 2021
|
