A009716 - OEIS

A009716

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

0, 1, 2, 3, 4, -3, -42, -49, 456, 2905, 10154, -83589, -1263668, -334059, 74121726, 351159815, -1582556016, -39776495567, -396499390126, 2339943411315, 87145255604884, 181395497796525, -10528569148387290, -87834301596283969

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

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

MATHEMATICA

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

CROSSREFS

Sequence in context: A283832 A102086 A009184 * A009590 A009492 A009810

Adjacent sequences: A009713 A009714 A009715 * A009717 A009718 A009719

KEYWORD

sign,easy

AUTHOR

R. H. Hardin

EXTENSIONS

Extended with signs by Olivier Gérard, Mar 15 1997

Definition clarified and Mathematica program replaced by Harvey P. Dale, Jul 27 2013

STATUS

approved