A009248 Expansion of e.g.f.: exp(tan(x).exp(x)).

1, 1, 3, 12, 57, 332, 2209, 16730, 140609, 1302664, 13137441, 143354574, 1680017889, 21043179068, 280310970385, 3955899181730, 58931602709633, 923925812276752, 15201851967182913, 261859798838325270

Offset

0,3

Links

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

Mathematica

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

Crossrefs

Sequence in context: A302101 A279271 A293469 * A012709 A370528 A032268

Adjacent sequences: A009245 A009246 A009247 * A009249 A009250 A009251

Keyword

nonn,easy

Author

R. H. Hardin

Extensions

Extended and signs tested Mar 15 1997 by Olivier Gérard.

Previous Mathematica program replaced and definition clarified by Harvey P. Dale, Jun 11 2014

Status

approved