OFFSET
0,2
LINKS
Jean-Christophe Novelli and Jean-Yves Thibon, Free quasi-symmetric functions and descent algebras for wreath products, and noncommutative multi-symmetric functions (2008); arXiv:0806.3682 [math.CO], 2008; Discrete Math. 310 (2010), no. 24, 3584-3606. See Eq. 37.
MATHEMATICA
terms = 19;
c[0] = 0; c[n_] := c[n] = n! - Sum[k! c[n - k], {k, 1, n - 1}];
s = (Product[1/(1 - x^k)^(2^k c[k]), {k, 1, terms}] + O[x]^terms - 1)/x;
g[x_] = ((-1/(1 + x s) + O[x]^terms) + 1);
CoefficientList[1/(1 - g[x]) + O[x]^terms, x] (* Jean-François Alcover, Feb 13 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Jan 23 2012
STATUS
approved