A302586 a(n) = n! * [x^n] exp(n*x)*tan(x).

0, 1, 4, 29, 288, 3641, 55872, 1008349, 20923392, 490730641, 12836633600, 370512824285, 11697136754688, 400947361714121, 14829211483455488, 588633245015433437, 24960134277040177152, 1126038686507284428961, 53851620649898789830656, 2721385807644104827095965

Offset: 0

Author

Ilya Gutkovskiy, Apr 10 2018

Keywords

• nonn

Links

• N. J. A. Sloane, Transforms

Crossrefs

Cf. A000182, A009739, A115415, A115416, A293020, A302583, A302584, A302585, A302587.

Programs

Mathematica

Table[n! SeriesCoefficient[Exp[n x] Tan[x], {x, 0, n}], {n, 0, 19}]
Table[I^(n + 1) 2^(n - 1) (EulerE[n, (-I/2) n] - EulerE[n, 1 - (I/2) n]), {n, 0, 19}]

Formula

a(n) ~ tan(1) * n^n. - Vaclav Kotesovec, Jun 08 2019