A013216 - OEIS

%I #9 Aug 01 2018 22:06:15

%S 0,0,-1,3,-6,23,-105,406,-1260,1385,48195,-816794,7746354,-28590343,

%T -859023165,32103094024,-771444393720,15805494180377,-295855009807833,

%U 5153505812257222,-82415471899841090

%N Expansion of e.g.f. arcsinh(log(x+1) - sin(x)).

%e -1/2!*x^2 + 3/3!*x^3 - 6/4!*x^4 + 23/5!*x^5 ...

%t With[{nn=30},Drop[CoefficientList[Series[ArcSinh[Log[x+1]-Sin[x]],{x,0,nn}],x] Range[0,nn]!,2]] (* _Harvey P. Dale_, Oct 02 2016 *)

%K sign

%O 0,4

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

%E a(0)=a(1)=0 inserted and title improved by _Sean A. Irvine_, Aug 01 2018