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,3

Links

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

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

Adjacent sequences: A009260 A009261 A009262 * A009264 A009265 A009266

Keyword

sign,easy

Author

R. H. Hardin

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