A080831 Expansion of e.g.f. exp(tan(exp(x)-1)).

1, 1, 2, 7, 35, 218, 1619, 13973, 137216, 1508981, 18360015, 244770120, 3547043469, 55499654941, 932309976082, 16732137304363, 319458645821311, 6464376124430434, 138181652330967287, 3111035191655067585, 73576818170267997096, 1823567097183804766897, 47261433984395105921195

Offset

0,3

Links

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

Mathematica

CoefficientList[Series[Exp[Tan[Exp[x] - 1]], {x, 0, 20}], x]*Table[n!, {n, 0, 20}]

Prog

(PARI) my(x='x+O('x^30)); Vec(serlaplace(exp(tan(exp(x)-1)))) \\ Michel Marcus, Jun 23 2025

Crossrefs

Sequence in context: A307441 A260530 A201690 * A006947 A182224 A317421

Adjacent sequences: A080828 A080829 A080830 * A080832 A080833 A080834

Keyword

easy,nonn

Author

Emanuele Munarini, Mar 28 2003

Extensions

More terms from Michel Marcus, Jun 23 2025

Status

approved