A013279 cosh(log(x+1)-arcsinh(x))=1+3/4!*x^4-30/5!*x^5+180/6!*x^6-945/7!*x^7...

1, 0, 0, 0, 3, -30, 180, -945, 7245, -79380, 822150, -7952175, 92151675, -1325674350, 19070251200, -264982843125, 4134370865625, -74940979113000, 1376877670418250, -24833523534694875, 487380405271134375

Offset

0,5

Links

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

Formula

a(n) ~ n! * (-1)^n * (sqrt(2)-1)/2. - Vaclav Kotesovec, Feb 04 2015

Mathematica

CoefficientList[Series[Cosh[ArcSinh[x] - Log[1 + x]], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Feb 04 2015 *)

Crossrefs

Sequence in context: A344564 A013281 A013274 * A013280 A013221 A013214

Adjacent sequences: A013276 A013277 A013278 * A013280 A013281 A013282

Keyword

sign

Author

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

Status

approved