%I #10 Jan 27 2013 08:49:13
%S 1,0,0,0,-3,30,-180,1113,-8379,69804,-628614,6216155,-67322211,
%T 789438078,-9958088140,134602170675,-1941190097399,29743794572824,
%U -482464755060922,8257903545778011,-148698758217737671
%N E.g.f.: cos(log(x+1)-sin(x))= 1-3/4!*x^4+30/5!*x^5-180/6!*x^6+1113/7!*x^7...
%H Vincenzo Librandi, <a href="/A013214/b013214.txt">Table of n, a(n) for n = 0..200</a>
%t With[{nn=30},CoefficientList[Series[Cos[Log[x+1]-Sin[x]],{x,0,nn}], x] Range[0,nn]!] (* _Harvey P. Dale_, Jan 26 2013 *)
%K sign
%O 0,5
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified by _Harvey P. Dale_, Jan 26 2013