OFFSET
0,4
MATHEMATICA
CoefficientList[Series[Sech[x]*Sin[Log[1 + x]], {x, 0, 20}], x] * Range[0, 20]! (* Vaclav Kotesovec, Jan 24 2015 *)
With[{nn=30}, CoefficientList[Series[Sin[Log[1+x]]/Cosh[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Dec 26 2019 *)
CROSSREFS
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Dec 26 2019
STATUS
approved