A013158 Expansion of e.g.f. tan(arctanh(x) + log(x+1)).

0, 2, -1, 20, -54, 940, -5670, 101440, -1011080, 19618000, -276748200, 5948856800, -108391285200, 2598850748000, -57723908897200, 1543071734672000, -40212272774544000, 1193617208821024000

Offset

0,2

Links

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

Example

2*x - 1/2!*x^2 + 20/3!*x^3 - 54/4!*x^4 + 940/5!*x^5 ...

Mathematica

With[{nn=20}, CoefficientList[Series[Tan[ArcTanh[x]+Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 12 2019 *)

Crossrefs

Sequence in context: A353873 A283620 A012927 * A012932 A013163 A191719

Adjacent sequences: A013155 A013156 A013157 * A013159 A013160 A013161

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