A013275 - OEIS

%I #13 Feb 04 2015 10:02:02

%S 0,0,-1,3,-6,15,-135,1260,-8820,65205,-722925,9043650,-101974950,

%T 1197971775,-17665522875,286053768000,-4408292889000,70284304715625,

%U -1307027554457625,26160675737946750,-509941992726416250

%N E.g.f. sinh(log(x+1) - arcsinh(x)) = -1/2!*x^2 + 3/3!*x^3 - 6/4!*x^4 + 15/5!*x^5 + ...

%F a(n) ~ n! * (-1)^(n+1) * (sqrt(2)-1)/2. - _Vaclav Kotesovec_, Feb 04 2015

%t With[{nn = 20}, CoefficientList[Series[Sinh[Log[x + 1] - ArcSinh[x]], {x, 0, nn}], x] Range[0, nn]!] (* _Harvey P. Dale_, Dec 08 2012 *)

%K sign

%O 0,4

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

%E Prepended the two initial zeros, _Joerg Arndt_, Dec 08 2012.