login
A013496
Expansion of e.g.f.: exp(tanh(x)-arctanh(x))=1-4/3!*x^3-8/5!*x^5+160/6!*x^6-992/7!*x^7...
0
1, 0, 0, -4, 0, -8, 160, -992, 1792, -50304, 484224, -4573952, 38725632, -738222080, 8292976640, -127954033664, 1743232565248, -34953731964928, 521161362997248, -10769261343309824, 188842450602393600
OFFSET
0,4
MATHEMATICA
With[{nn=20}, CoefficientList[Series[Exp[Tanh[x]-ArcTanh[x]], {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Apr 17 2022 *)
CROSSREFS
Sequence in context: A019249 A260491 A013440 * A187172 A296570 A241667
KEYWORD
sign
AUTHOR
Patrick Demichel (patrick.demichel(AT)hp.com)
EXTENSIONS
Definition clarified by Harvey P. Dale, Apr 17 2022
STATUS
approved