OFFSET
0,4
LINKS
Vladimir Kruchinin, The method for obtaining expressions for coefficients of reverse generating functions, arXiv:1211.3244
FORMULA
a(n)=sum(k=1..n-1, (sum(j=0..k, binomial(k,j)*sum(i=j..n-k+j-1, binomial(j,i-j)*binomial(k-j,n-3*(k-j)-i-1))))*binomial(n+k-1,n-1)/n, n>1. a(1)=1. [Vladimir Kruchinin, May 10 2011]
MATHEMATICA
CoefficientList[InverseSeries[Series[y - y^2 - y^3 - y^4 - y^5, {y, 0, 30}], x], x]
PROG
(Maxima)
a(n):=if n<2 then n else sum((sum(binomial(k, j)*sum(binomial(j, i-j)*binomial(k-j, n-3*(k-j)-i-1), i, j, n-k+j-1), j, 0, k))*binomial(n+k-1, n-1), k, 1, n-1)/n; [Vladimir Kruchinin, May 10 2011]
(PARI)
x='x+O('x^66);
gf=serreverse(x-sum(j=2, 6, x^j));
Vec(gf)
/* Joerg Arndt, May 12 2011 */
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jul 05 2001.
STATUS
editing