%I #9 Jul 26 2013 01:11:58
%S 0,0,-1,1,-6,23,-150,929,-8120,73387,-791280,9118019,-118205208,
%T 1645324757,-25017568576,407175866733,-7122304020000,132554586404695,
%U -2623938745643136,54936833779465199
%N E.g.f.: arctanh(log(x+1)-sinh(x)) = -1/2!*x^2 + 1/3!*x^3 - 6/4!*x^4 + 23/5!*x^5 - ...
%t With[{nn=20},CoefficientList[Series[ArcTanh[Log[x+1]-Sinh[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Jul 25 2013 *)
%K sign
%O 0,5
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E First two terms prepended and definition clarified by _Harvey P. Dale_, Jul 25 2013
|