A013493 exp(arcsinh(x)-tanh(x))=1+1/3!*x^3-7/5!*x^5+10/6!*x^6+47/7!*x^7...

1, 0, 0, 1, 0, -7, 10, 47, -392, 3369, 11814, -571573, 434412, 88260053, -239703334, -16363524721, 66778596688, 3810346797553, -19103113532274, -1115878992933037, 6219304575954900, 405808123338059597

Offset

0,6

Links

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

Mathematica

CoefficientList[Series[E^(ArcSinh[x] - Tanh[x]), {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Feb 04 2015 *)

Crossrefs

Sequence in context: A056521 A056510 A013398 * A166661 A025632 A038276

Adjacent sequences: A013490 A013491 A013492 * A013494 A013495 A013496

Keyword

sign

Author

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

Status

approved