A009657 - OEIS

%I #13 Jan 15 2020 18:13:51

%S 1,0,-12,88,4176,-238912,-1798976,1359954560,-82934087424,

%T -12122717059072,3176281608315904,-22431206333925376,

%U -144730933261140701184,27574419119401032040448,6996748839515967274205184

%N Expansion of tan(sin(sin(x))).

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

%K sign

%O 0,3

%A _R. H. Hardin_

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

%E Previous Mathematica program replaced by _Harvey P. Dale_, Jan 15 2020