A009263 Expansion of e.g.f.: exp(tanh(x)).x.

0, 1, 2, 3, -4, -35, -18, 679, 2200, -18567, -150150, 587499, 11618004, -9780459, -1078005082, -2502478065, 118928710576, 742659420913, -15184771406478, -178572619407021, 2148536703814700, 44455465546363725

Offset: 0

Author

R. H. Hardin

Keywords

• sign
• easy

Links

• Vincenzo Librandi, Table of n, a(n) for n = 0..100

Programs

Mathematica

With[{nn=30},CoefficientList[Series[Exp[Tanh[x]]*x,{x,0,nn}],x] Range[ 0,nn]!] (* Harvey P. Dale, Jun 24 2014 *)

Formula

a(n) = n * A003723(n-1). - Ralf Stephan, Sep 01 2003

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