OFFSET
0,3
MATHEMATICA
nmax = 25; Range[0, nmax]! * CoefficientList[Series[Product[(1+Tan[x^k]), {k, 1, nmax}], {x, 0, nmax}], x]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Mar 21 2016
STATUS
approved