OFFSET
0,3
LINKS
Seiichi Manyama, Table of n, a(n) for n = 0..100
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Tanh[Exp[x]*x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jun 03 2023 *)
PROG
(PARI) my(x='x+O('x^30)); concat(0, Vec(serlaplace(tanh(exp(x)*x)))) \\ Michel Marcus, Oct 01 2021
CROSSREFS
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Previous Mathematica program replaced by Harvey P. Dale, Jun 03 2023
STATUS
approved