A270665 E.g.f.: Product_{k>=1} 1/(1 - tan(x^k)).

1, 1, 4, 20, 136, 1016, 10112, 102080, 1259648, 16501888, 243214592, 3792156928, 66314635264, 1201731751936, 23824296632320, 496708324364288, 11065302289285120, 257749924759273472, 6397599337673523200, 165009476729535463424, 4496775223731602063360

Offset: 0

Author

Vaclav Kotesovec, Mar 21 2016

Keywords

• nonn

Crossrefs

Cf. A203716, A218504, A270664, A270666.

Programs

Mathematica

nmax = 25; Range[0, nmax]! * CoefficientList[Series[Product[1/(1-Tan[x^k]), {k, 1, nmax}], {x, 0, nmax}], x]