%I #13 Apr 02 2017 12:12:28
%S 1,2,8,-176,-16384,-969728,-32455680,4303626240,1468506210304,
%T 269552004300800,24649152071991296,-7396863878894714880,
%U -5630959968640999358464,-2114449853843696991076352
%N Expansion of tan(tanh(tan(x))).
%t With[{nn=30},Take[CoefficientList[Series[Tan[Tanh[Tan[x]]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Aug 03 2016 *)
%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_, Aug 03 2016
|