A013287 Expansion of e.g.f. sinh(log(x+1) - tanh(x)).

0, 0, -1, 4, -6, 8, -135, 1412, -10780, 83568, -778365, 9007172, -116179074, 1502030840, -20018889891, 298432864004, -4913874359160, 84111227898208, -1492133395973049, 28208790397251716, -568110070842919230

Offset

0,4

Links

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

Example

-(1/2!)*x^2 + (4/3!)*x^3 - (6/4!)*x^4 + (8/5!)*x^5 - ...

Mathematica

With[{nn=30}, Drop[CoefficientList[Series[Sinh[Log[x+1]-Tanh[x]], {x, 0, nn}], x] Range[0, nn]!, 2]] (* Harvey P. Dale, Mar 26 2013 *)

Prog

(PARI) x = 'x + O('x^30); concat([0, 0], Vec(serlaplace(sinh(log(x+1) - tanh(x))))) \\ Michel Marcus, Aug 03 2018

Crossrefs

Sequence in context: A013289 A013288 A013282 * A013283 A013284 A013290

Adjacent sequences: A013284 A013285 A013286 * A013288 A013289 A013290

Keyword

sign

Author

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

Extensions

a(0)=a(1)=0 inserted and title improved by Sean A. Irvine, Aug 03 2018

Status

approved