A013278 arctanh(log(x+1)-arcsinh(x))=-1/2!*x^2+3/3!*x^3-6/4!*x^4+15/5!*x^5...

0, 0, -1, 3, -6, 15, -150, 1575, -12600, 101115, -1103760, 14708925, -198336600, 2783105325, -43768604880, 754367488875, -13648397162400, 262037979177975, -5424089927256000, 118958487086664225

Offset

0,4

Links

Table of n, a(n) for n=0..19.

Formula

a(n) ~ (n-1)! * (-1)^(n+1) / 2 * (((2-exp(1))*exp(1))/(exp(1)-exp(2)+sqrt(2*(exp(1)-1)*exp(1))))^n. - Vaclav Kotesovec, Nov 01 2013

Mathematica

CoefficientList[Series[ArcTanh[Log[x+1]-ArcSinh[x]], {x, 0, 20}], x]* Range[0, 20]! (* Vaclav Kotesovec, Nov 01 2013 *)

Crossrefs

Sequence in context: A013275 A013271 A013272 * A009196 A329124 A116613

Adjacent sequences: A013275 A013276 A013277 * A013279 A013280 A013281

Keyword

sign

Author

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

Extensions

Prepended missing a(0)=0, a(1)=0 from Vaclav Kotesovec, Nov 01 2013

Status

approved