%I #14 Jun 22 2015 22:16:12
%S 0,1,-1,-2,4,0,-1,-16,64,-256,1319,-7680,49204,-346112,2653559,
%T -22022144,196707424,-1881735168,19194804719,-207983607808,
%U 2385684870724,-28880901505024,367985503366799,-4922617151619072,68980888889771104
%N Expansion of log(1+sin(x))*cos(x).
%F a(n) ~ (n-1)! * (-1)^n * 2^n / (n * Pi^(n-1)). - _Vaclav Kotesovec_, Jan 23 2015
%t Log[ 1+Sin[ x ] ]*Cos[ x ]
%t CoefficientList[Series[Cos[x]*Log[1 + Sin[x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 23 2015 *)
%K sign,easy
%O 0,4
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997