%I #4 Mar 21 2016 07:18:24
%S 1,1,4,20,136,1016,10112,102080,1259648,16501888,243214592,3792156928,
%T 66314635264,1201731751936,23824296632320,496708324364288,
%U 11065302289285120,257749924759273472,6397599337673523200,165009476729535463424,4496775223731602063360
%N E.g.f.: Product_{k>=1} 1/(1 - tan(x^k)).
%t nmax = 25; Range[0, nmax]! * CoefficientList[Series[Product[1/(1-Tan[x^k]), {k, 1, nmax}], {x, 0, nmax}], x]
%Y Cf. A203716, A218504, A270664, A270666.
%K nonn
%O 0,3
%A _Vaclav Kotesovec_, Mar 21 2016
|