|
Search: id:A130592
|
|
|
| A130592 |
|
A 6 X 6 vector matrix Markov doubly recursive sequence: Polynomial:8 - 5 n - 72 x + 20 n x + 146 x^2 - 21 n x^2 - 128 x^3 + 8 n x^3 + 56 x^4 - n x^4 - 12 x^5 + x^6 Matrix : M(n) ={{0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1}, -1*{8 - 5 n, -72 + 20 n, 146 - 21 n, -128 + 8 n, 56 - n, -12}};. |
|
+0
1
|
|
| 1, 12, 90, 548, 2986, 15284, 74309, 346716, 1571119, 6992940, 30875360, 136381936, 607183046, 2742567784, 12641133025, 59750365748, 290733288513, 1460096920092, 7578070997402, 40648251605280, 225116682011442
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Starting vector chosen instead of {0,0,0,0,0,1} to eleminate intial zeros.
|
|
FORMULA
|
M(n) ={{{0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0}, { 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0}, { 0, 0, 0, 0, 0, 1}, -1*{8 - 5 n, -72 + 20 n, 146 - 21 n, -128 + 8 n, 56 - n, -12}}; Starting vector:v(0)={1, 12, 90, 548, 2986, 15284}; v(n)=M(n).v(n-1); a(n) = v(n)[[1]]
|
|
MATHEMATICA
|
M[0] = {{0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1}, -1*{8, -72, 146, -128, 56, -12}}; M[n_] := {{0, 1, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0}, {0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 1}, -1*{8 - 5 n, -72 + 20 n, 146 - 21 n, -128 + 8 n, 56 - n, -12}}; v[0] = {1, 12, 90, 548, 2986, 15284}; v[n_] := v[n] = M[n].v[n - 1] a = Table[v[n][[1]], {n, 0, 30}]
|
|
CROSSREFS
|
Sequence in context: A036216 A022640 A090749 this_sequence A002544 A093801 A135173
Adjacent sequences: A130589 A130590 A130591 this_sequence A130593 A130594 A130595
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 16 2007
|
|
|
Search completed in 0.002 seconds
|
