%I #14 Apr 02 2017 12:26:13
%S 1,-1,-7,167,1553,-238481,4553,1254638551,-35872740703,
%T -17157807788193,1532562286297113,488815558185860999,
%U -101586398550375052879,-24471009470566855107377,10960094402513781594777321
%N Expansion of tanh(tan(sin(x))).
%t With[{nn=30},Take[CoefficientList[Series[Tanh[Tan[Sin[x]]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Oct 24 2016 *)
%K sign
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Prior Mathematica program replaced by _Harvey P. Dale_, Oct 24 2016
|