|
|
A111838
|
|
Matrix log of triangle A111835, which shifts columns left and up under matrix 8th power; these terms are the result of multiplying each element in row n and column k by (n-k)!.
|
|
8
|
|
|
0, 1, 0, -6, 8, 0, 142, -48, 64, 0, 31800, 1136, -384, 512, 0, -159468264, 254400, 9088, -3072, 4096, 0, -2481298801008, -1275746112, 2035200, 72704, -24576, 32768, 0, 1414130111428687344, -19850390408064, -10205968896, 16281600, 581632, -196608, 262144, 0
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,4
|
|
COMMENTS
|
Column k equals 8^k multiplied by column 0 (A111839) when ignoring zeros above the diagonal.
|
|
LINKS
|
|
|
FORMULA
|
T(n, k) = 8^k*T(n-k, 0) = A111839(n-k) for n>=k>=0.
|
|
EXAMPLE
|
Matrix log of A111835, with factorial denominators, begins:
0;
1/1!, 0;
-6/2!, 8/1!, 0;
142/3!, -48/2!, 64/1!, 0;
31800/4!, 1136/3!, -384/2!, 512/1!, 0;
-159468264/5!, 254400/4!, 9088/3!, -3072/2!, 4096/1!, 0; ...
|
|
PROG
|
(PARI) T(n, k, q=8)=local(A=Mat(1), B); if(n<k || k<0, 0, for(m=1, n+1, B=matrix(m, m); for(i=1, m, for(j=1, i, if(j==i || j==1, B[i, j]=1, B[i, j]=(A^q)[i-1, j-1]); )); A=B); B=sum(i=1, #A, -(A^0-A)^i/i); return((n-k)!*B[n+1, k+1]))
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|