A013161 Expansion of e.g.f. sinh(arctanh(x) + log(x+1)).

0, 2, -1, 12, -30, 270, -1215, 12600, -81900, 992250, -8434125, 117879300, -1237732650, 19666196550, -245827456875, 4382752374000, -63549909423000, 1257302087291250, -20745484440305625, 451231749105637500

Offset

0,2

Links

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

Example

2*x - 1/2!*x^2 + 12/3!*x^3 - 30/4!*x^4 + 270/5!*x^5 ...

Mathematica

With[{nn=30}, CoefficientList[Series[Sinh[ArcTanh[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Feb 01 2024 *)

Crossrefs

Sequence in context: A054677 A290533 A012929 * A012926 A013157 A062742

Adjacent sequences: A013158 A013159 A013160 * A013162 A013163 A013164

Keyword

sign

Author

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

Extensions

a(0)=0 inserted and title improved by Sean A. Irvine, Jul 31 2018

Status

approved