|
%I
%S 1,-1,-7,391,-17263,680239,1450569,-7957325193,2085950965153,
%T -451440698199841,87302333394141977,-12244874410272223257,
%U -1227047210877649641679,2438662572717698729224975
%N Expansion of tan(tanh(sin(x))).
%t With[{nn=30},Take[CoefficientList[Series[Tan[Tanh[Sin[x]]],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jun 14 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_, Jun 14 2016
|
