%I #16 Aug 29 2014 03:38:57
%S 0,1,-3,7,-14,15,109,-1507,14988,-146311,1494945,-16290969,190291542,
%T -2382532633,31911488361,-455996792755,6931146231704,-111739259567727,
%U 1905221401398053,-34267059287580761,648529389183031290
%N Expansion of e.g.f.: sin(log(1+x))/exp(x).
%H Vincenzo Librandi, <a href="/A009461/b009461.txt">Table of n, a(n) for n = 0..200</a>
%t With[{nn=20},CoefficientList[Series[Sin[Log[1+x]]/Exp[x],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 27 2014 *)
%K sign,easy
%O 0,3
%A _R. H. Hardin_
%E Extended with signs by _Olivier GĂ©rard_, Mar 15 1997
%E Definition clarified and prior Mathematica program replaced by _Harvey P. Dale_, Aug 27 2014
|