%I #17 Feb 08 2014 14:53:57
%S 1,-6,72,-1904,89344,-6445824,660602880,-91175548928,16301080281088,
%T -3664597991424000,1011727950085619712,-336514395583207178240,
%U 132722531082033166286848,-61245140659205655654039552
%N Expansion of tanh(sin(x))*cos(x).
%H Vincenzo Librandi, <a href="/A009793/b009793.txt">Table of n, a(n) for n = 0..100</a>
%t With[{nn=30},Take[CoefficientList[Series[Tanh[Sin[x]]Cos[x],{x,0,nn}],x] Range[0,nn-1]!,{2,-1,2}]] (* _Harvey P. Dale_, Jun 18 2013 *)
%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_, Jun 18 2013