%I #13 Jan 02 2018 19:34:38
%S 1,3,33,571,897,-2454829,-541025183,-111302329717,-24150003737343,
%T -5473538199891421,-1184916732110463071,-160650662732139980197,
%U 73044130261960254992001,109307715032177255302278131
%N Expansion of tan(sin(tan(x))).
%t With[{nn=30},Take[CoefficientList[Series[Tan[Sin[Tan[x]]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jan 02 2018 *)
%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_, Jan 02 2018