|
Search: id:A123190
|
|
|
| A123190 |
|
Sum of the entries of the first row of the matrix M^n, where M is the 4 X 4 matrix [[ -1, 3, -3, 1 ], [ 3, -6, 3, 0 ], [ -3, 0, 3, 0 ], [ 1, 4, 1, 0 ]] (n>=0). |
|
+0
1
|
|
| 1, 0, 6, -6, 120, -504, 5268, -33960, 286872, -2089656, 16524528, -124872576, 967652400, -7394858496, 56948789280, -436704535776, 3356724764544, -25767744878592, 197948016193344, -1520029557845376, 11674792161026688, -89658816678161280, 688598927703310080
(list; graph; listen)
|
|
|
OFFSET
|
0,3
|
|
|
MAPLE
|
with(linalg): M[1]:=matrix(4, 4, [ -1, 3, -3, 1, 3, -6, 3, 0, -3, 0, 3, 0, 1, 4, 1, 0]): for n from 2 to 22 do M[n]:=multiply(M[n-1], M[1]) od: 1, seq(add(M[k][1, j], j=1..4), k=1..22);
|
|
MATHEMATICA
|
M = {{ -1, 3, -3, 1 }, { 3, -6, 3, 0 }, {-3, 0, 3, 0 }, { 1, 4, 1, 0 }}; v[1] = {1, 1, 1, 1}; v[n_] := v[n] = M.v[n - 1] a1 = Table[v[n][[1]], {n, 1, 25}]
|
|
CROSSREFS
|
Sequence in context: A146892 A085804 A012125 this_sequence A165641 A113550 A011098
Adjacent sequences: A123187 A123188 A123189 this_sequence A123191 A123192 A123193
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Oct 03 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Oct 26 2006
|
|
|
Search completed in 0.002 seconds
|
