|
|
PROG
| (PARI) {A122890(n, k)=local(F=x+x^2, G=x+x*O(x^k)); if(n<0, 0, for(i=1, n, G=subst(F, x, G)); polcoeff(G, k, x))}
/* Takes first 2^m terms in column m of A122890 to compute a(m): */
{for(m=0, 8, print1(polcoeff(sum(N=1, 2^m, sum(n=0, 2^m, A122890(n, N)*x^n)*(1-x)^N+O(x^12)), m), ", "))}
|
