%I #10 Mar 01 2015 02:44:00
%S 1,0,1,-3,9,-53,315,-2149,17409,-156617,1563219,-17208081,206502945,
%T -2684228909,37580441899,-563709546373,9019300106369,-153328265590929,
%U 2759909907247651,-52438275521652889,1048765530491448353,-22024076635965333173,484529682070755145979
%N E.g.f.: exp(sin(x)-log(x+1)).
%e exp(sin(x)-log(x+1)) = 1 + 1/2!*x^2 - 3/3!*x^3 + 9/4!*x^4 - 53/5!*x^5 ...
%t CoefficientList[Series[Exp[Sin[x] - Log[x + 1]], {x, 0, 25}], x] Range[0, 25]! (* _Vincenzo Librandi_, Mar 01 2015 *)
%K sign
%O 0,4
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E a(20)-a(22) from _Vincenzo Librandi_, Mar 01 2015