A013283 Expansion of e.g.f. arcsin(log(x+1) - tanh(x)).

0, 0, -1, 4, -6, 8, -135, 1412, -10780, 83568, -785925, 9561572, -136414674, 1991159480, -29164986851, 458554425604, -8138629332600, 159215259140448, -3271030693830729, 69435969035174084

Offset

0,4

Links

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

Example

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

Mathematica

With[{nn=20}, CoefficientList[Series[ArcSin[Log[x+1]-Tanh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 19 2019 *)

Prog

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

Crossrefs

Sequence in context: A013288 A013282 A013287 * A013284 A013290 A095211

Adjacent sequences: A013280 A013281 A013282 * A013284 A013285 A013286

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