AUTHOR
_Paul D. Hanna (pauldhanna(AT)juno.com), _, Aug 23 2005
The OEIS is supported by the many generous donors to the OEIS Foundation.
_Paul D. Hanna (pauldhanna(AT)juno.com), _, Aug 23 2005
nonn,new
nonn
Paul D . Hanna (pauldhanna(AT)juno.com), Aug 23 2005
(PARI) {a(n, q=3)=local(A=Mat(1), B); if(n<0, 0, for(m=1, n+2, B=matrix(m, m); for(i=1, m, for(j=1, i, if(j==i, B[i, j]=1, if(j==1, B[i, j]=(A^q)[i-1, 1], B[i, j]=(A^q)[i-1, j-1])); )); A=B); return(sum(k=0, n, A[n+1, k+1])))}
nonn,new
nonn
Row sums of triangle A111840, which shifts columns left and up under matrix cube.
1, 2, 7, 46, 595, 16444, 1048303, 162728110, 63746277967, 64594795730680, 172419318632651104, 1229463017642626881490, 23684690483668583872503679, 1244115601652916934000237966330, 179585081405174505374545193721101377
0,2
(PARI) {a(n, q=3)=local(A=Mat(1), B); if(n<0, 0, for(m=1, n+2, B=matrix(m, m); for(i=1, m, for(j=1, i, if(j==i, B[i, j]=1, if(j==1, B[i, j]=(A^q)[i-1, 1], B[i, j]=(A^q)[i-1, j-1])); )); A=B); return(sum(k=0, n, A[n+1, k+1])))}
nonn
Paul D Hanna (pauldhanna(AT)juno.com), Aug 23 2005
approved