OFFSET
0,2
FORMULA
MATHEMATICA
nmax = 20; CoefficientList[Series[Sum[Product[Tan[2*k*x], {k, 1, n}], {n, 0, nmax}], {x, 0, nmax}], x] * Range[0, nmax]!
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Oct 02 2020
STATUS
approved