login
Expansion of tan(tanh(x)*cos(x)).
0

%I #14 Mar 20 2020 18:48:11

%S 1,-3,-43,2009,6313,-9872907,760322045,105243758801,-41122814903471,

%T 1873399639193325,3032918686052577317,-1060046322104258754871,

%U -196239553045718536023047,335369132729230015620066021

%N Expansion of tan(tanh(x)*cos(x)).

%t With[{nn=30},Take[CoefficientList[Series[Tan[Tanh[x]*Cos[x]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Mar 20 2020 *)

%K sign

%O 0,2

%A _R. H. Hardin_

%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997

%E Previous Mathematica program replaced by _Harvey P. Dale_, Mar 20 2020