OFFSET
1,7
LINKS
FORMULA
G.f.: A(x) = B(x)-B(x)^2/2-B(x^2)/2+B(x^3)/3-B(x)^3/3 where B is g.f. of A091488
PROG
(PARI) WeighT(v)={Vec(exp(x*Ser(dirmul(v, vector(#v, n, (-1)^(n-1)/n))))-1, -#v)}
b(n)={my(p=O(x)); for(n=1, n, p=x+x^2*(Ser(WeighT(Vec(p + (p^2 - subst(p, x, x^2))/2))))); p}
seq(n)={my(p=b(n)); Vec(p - p^2/2 - p^3/3 - subst(p, x, x^2)/2 + subst(p, x, x^3)/3)} \\ Andrew Howroyd, Aug 30 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Christian G. Bower, Jan 14 2004
STATUS
approved