|
%I #13 Jun 08 2018 14:32:44
%S 1,-2,12,-296,8208,-317088,22384832,-1922265216,200049877248,
%T -28532108907008,4916900759571456,-987493645187344384,
%U 241526023834975735808,-69201642972421758361600
%N Expansion of tan(sin(x))/cosh(x).
%t With[{nn=30},Take[CoefficientList[Series[Tan[Sin[x]]/Cosh[x],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jun 08 2018 *)
%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_, Jun 08 2018
|
