%I #19 Jun 22 2015 22:17:12
%S 0,1,-3,7,-16,40,-117,411,-1720,8384,-46561,289595,-1991504,14993108,
%T -122595085,1081616659,-10239597968,103522029312,-1113074512289,
%U 12681693805203,-152613117638712,1934275341388596,-25753344727083773
%N Expansion of e.g.f.: log(1+sin(x))/exp(x).
%C This sequence starting with the 2nd term, unsigned, is the partial sums of A000667. - _Gerald McGarvey_, Aug 13 2004
%F a(n) ~ (n-1)! * (-1)^(n+1) * exp(Pi/2) * 2^(n+1) / Pi^n. - _Vaclav Kotesovec_, Jan 23 2015
%t With[{nn=30},CoefficientList[Series[Log[1+Sin[x]]/Exp[x],{x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 13 2012 *)
%Y Cf. A000667.
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Definition clarified by _Harvey P. Dale_, Aug 13 2012