login
Expansion of tanh(sin(x))*cos(x).
1

%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