%I #11 Jun 23 2015 22:01:51
%S 0,1,1,1,2,-5,41,-289,2316,-20383,196965,-2077319,23780646,-293954869,
%T 3904755557,-55497739465,840656150296,-13523247084319,230285930161321,
%U -4139153666264303,78317988438360330
%N Expansion of sin(log(1+x))*exp(x).
%t Sin[ Log[ 1+x ] ]*Exp[ x ]
%t CoefficientList[Series[E^x*Sin[Log[1 + x]], {x, 0, 20}], x] * Range[0, 20]! (* _Vaclav Kotesovec_, Jan 24 2015 *)
%K sign
%O 0,5
%A _R. H. Hardin_