|
%I #6 Aug 15 2017 20:16:05
%S 0,0,-1,1,-6,15,-135,600,-6580,42805,-546525,4698450,-68473350,
%T 732163575,-12012875875,153571600000,-2805371985000,41710773599625,
%U -840435196901625,14241298404498750,-313987574315496250
%N Expansion of e.g.f.: sinh(log(x+1)-arcsin(x))=-1/2!*x^2+1/3!*x^3-6/4!*x^4+15/5!*x^5...
%t With[{nn=30},CoefficientList[Series[Sinh[Log[x+1]-ArcSin[x]],{x,0,nn}],x] Range[0,nn]!] (* _Harvey P. Dale_, Aug 15 2017 *)
%K sign
%O 0,5
%A Patrick Demichel (patrick.demichel(AT)hp.com)
%E Definition clarified and first two terms prepended by _Harvey P. Dale_, Aug 15 2017
|
