OFFSET
0,2
FORMULA
PROG
(PARI) /* Generate using matrix product recurrences of triangle P=A136220:*/ {a(n)=local(P=Mat(1), U, PShR); if(n>0, for(i=0, n, PShR=matrix(#P, #P, r, c, if(r>=c, if(r==c, 1, if(c==1, 0, P[r-1, c-1])))); U=P*PShR^2; U=matrix(#P+1, #P+1, r, c, if(r>=c, if(r<#P+1, U[r, c], if(c==1, (P^3)[ #P, 1], (P^(3*c-1))[r-c+1, 1])))); P=matrix(#U, #U, r, c, if(r>=c, if(r<#R, P[r, c], (U^c)[r-c+1, 1]))))); (P^2)[n+1, 1]}
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul D. Hanna,Jan 28 2008
STATUS
approved