OFFSET
0,2
MATHEMATICA
m = 13; A[_] = 0; Do[A[x_] = (1 + x A[2 x])^8 + O[x]^m // Normal, {m}];
CoefficientList[A[x], x] (* Jean-François Alcover, Nov 07 2019 *)
PROG
(PARI) {a(n)=local(A=1+x+x*O(x^n)); for(i=0, n, A=(1+x*subst(A, x, 2*x))^8); polcoeff(A, n)}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Dec 05 2009
STATUS
approved