OFFSET
0,3
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Tanh[Log[1+x]/Exp[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Sep 27 2014 *)
CROSSREFS
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Definition clarified by and prior Mathematica program replaced by Harvey P. Dale, Sep 27 2014
STATUS
approved