login
A013158
Expansion of e.g.f. tan(arctanh(x) + log(x+1)).
0
0, 2, -1, 20, -54, 940, -5670, 101440, -1011080, 19618000, -276748200, 5948856800, -108391285200, 2598850748000, -57723908897200, 1543071734672000, -40212272774544000, 1193617208821024000
OFFSET
0,2
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
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