login
A009738
Expansion of e.g.f.: tan(x)*exp(tanh(x)).
0
0, 1, 2, 5, 4, 1, 38, 797, 3144, 1345, -49526, 785685, 10349516, 33807489, -460714706, 492925869, 91894143376, 846642059905, -6277401116142, -79077949115227, 1574511126111380, 36210294463841281, -81923064774031562
OFFSET
0,3
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Tan[x]*Exp[Tanh[x]], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Feb 20 2020 *)
CROSSREFS
Sequence in context: A231890 A087561 A309771 * A268647 A177067 A055127
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Prior Mathematica program replaced and definition clarified by Harvey P. Dale, Feb 20 2020
STATUS
approved