login
A122891
Column sums of triangle A122890.
1
1, 1, 3, 28, 1625, 3247268, 10649997137454, 113423713055030979289411081, 12864938683278671740537137672878980378983810317967737
OFFSET
0,3
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), ", "))}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Sep 18 2006
STATUS
approved