OFFSET
0,3
EXAMPLE
2/2!*x^2 - 3/3!*x^3 - 10/5!*x^5 + 400/6!*x^6 ...
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Tan[Tanh[x]Log[x+1]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 19 2022 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
a(0) and a(1) inserted and title improved by Sean A. Irvine, Jul 23 2018
STATUS
approved