OFFSET
0,2
PROG
(PARI) {a(n)=local(A=[]); for(i=0, n, A=concat(A, 0); A[i+1]=(4^i - Vec(Ser(A)^(2^i))[i+1])/2^i); Vec(Ser(A)^(2^(n+2)))[n+1]/4^n}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Oct 25 2007
STATUS
approved