A013217 - OEIS

%I #8 Jul 16 2013 12:39:53

%S 0,0,-1,3,-6,23,-90,91,2520,-37549,461160,-5366339,58528008,

%T -607263295,5930324400,-49004509553,192095423520,4873161825335,

%U -189700932165696,4680846631063441,-99367558621150840,1935131558912511581

%N E.g.f.: tanh(log(x+1)-sin(x))=-1/2!*x^2+3/3!*x^3-6/4!*x^4+23/5!*x^5...

%t With[{nn=30},CoefficientList[Series[Tanh[Log[x+1]-Sin[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jul 16 2013 *)

%K sign

%O 0,4

%A Patrick Demichel (patrick.demichel(AT)hp.com)

%E Corrected (first two terms prepended) and definition clarified by _Harvey P. Dale_, Jul 16 2013