A013488 Expansion of e.g.f.: exp(sinh(x)-log(x+1))=1+1/2!*x^2-1/3!*x^3+9/4!*x^4-33/5!*x^5...

1, 0, 1, -1, 9, -33, 235, -1517, 12593, -111465, 1122819, -12313409, 147949593, -1922353925, 26918452691, -403744456541, 6460109224801, -109820584161393, 1976779056442179, -37558742545087481

Offset

0,5

Links

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

Mathematica

With[{nn=20}, CoefficientList[Series[Exp[Sinh[x]-Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 21 2015 *)

Crossrefs

Sequence in context: A189179 A146445 A046997 * A186762 A343843 A063423

Adjacent sequences: A013485 A013486 A013487 * A013489 A013490 A013491

Keyword

sign

Author

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

Extensions

Definition clarified by Harvey P. Dale, Dec 21 2015

Status

approved