A013259 Expansion of e.g.f. arcsin(log(x+1) - sinh(x)).

0, 0, -1, 1, -6, 23, -135, 824, -6580, 56853, -574245, 6321434, -77709654, 1034820863, -15028496483, 234652617016, -3939397037160, 70561239939417, -1345864598250633, 27205562970320606, -581454141374015770

Offset

0,5

Links

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

Example

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

Mathematica

With[{nn=20}, CoefficientList[Series[ArcSin[Log[x+1]-Sinh[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Apr 14 2021 *)

Prog

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

Crossrefs

Sequence in context: A063383 A266996 A013263 * A012468 A219168 A013260

Adjacent sequences: A013256 A013257 A013258 * A013260 A013261 A013262

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 02 2018

Status

approved