login
A111842
Row sums of triangle A111840, which shifts columns left and up under matrix cube.
1
1, 2, 7, 46, 595, 16444, 1048303, 162728110, 63746277967, 64594795730680, 172419318632651104, 1229463017642626881490, 23684690483668583872503679, 1244115601652916934000237966330, 179585081405174505374545193721101377
OFFSET
0,2
PROG
(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])))}
CROSSREFS
Cf. A111840, A078125 (variant).
Sequence in context: A340450 A351917 A349640 * A247883 A027458 A062632
KEYWORD
nonn
AUTHOR
Paul D. Hanna, Aug 23 2005
STATUS
approved