A302584 a(n) = n! * [x^n] exp(n*x)/cos(x).

1, 1, 5, 36, 357, 4500, 68857, 1239504, 25661545, 600655824, 15684383021, 452001644864, 14249852124365, 487836995500608, 18022519535240417, 714658089577017600, 30275849571771536977, 1364687729891761740032, 65213822241378992547925, 3293203845745202062590976

Offset: 0

Author

Ilya Gutkovskiy, Apr 10 2018

Keywords

• nonn

Links

• N. J. A. Sloane, Transforms

Crossrefs

Cf. A000364, A003701, A062024, A115415, A115416, A302583, A302585, A302586, A302587.

Programs

Mathematica

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

Formula

a(n) ~ n^n / cos(1). - Vaclav Kotesovec, Jun 08 2019