A009810 Expansion of e.g.f.: tanh(tan(x))*exp(x).

0, 1, 2, 3, 4, -3, -42, -273, -1336, -5159, -16726, 62139, 1194700, 16414101, 153304830, 1357293927, 10698400400, 59192332081, 188012481362, -5204089208589, -107922523124588, -1943937262679379, -26275693823306202

Offset

0,3

Links

Table of n, a(n) for n=0..22.

Mathematica

With[{nn=30}, CoefficientList[Series[Tanh[Tan[x]]*Exp[x], {x, 0, nn}], x] Range[0, nn]!] (* Harvey P. Dale, Jan 02 2018 *)

Crossrefs

Sequence in context: A009716 A009590 A009492 * A324156 A111362 A134581

Adjacent sequences: A009807 A009808 A009809 * A009811 A009812 A009813

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, Jan 02 2018

Status

approved