login
A009263
Expansion of e.g.f.: exp(tanh(x)).x.
1
0, 1, 2, 3, -4, -35, -18, 679, 2200, -18567, -150150, 587499, 11618004, -9780459, -1078005082, -2502478065, 118928710576, 742659420913, -15184771406478, -178572619407021, 2148536703814700, 44455465546363725
OFFSET
0,3
LINKS
FORMULA
a(n) = n * A003723(n-1). - Ralf Stephan, Sep 01 2003
MATHEMATICA
With[{nn=30}, CoefficientList[Series[Exp[Tanh[x]]*x, {x, 0, nn}], x] Range[ 0, nn]!] (* Harvey P. Dale, Jun 24 2014 *)
CROSSREFS
Sequence in context: A180631 A102842 A299169 * A084314 A308045 A247961
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Definition clarified and prior Mathematica program replaced by Harvey P. Dale, Jun 24 2014
STATUS
approved