|
| |
|
|
A130019
|
|
A doubly recursive vector matrix Markov ( both the vector and matrix iterate): matrix:M(n)={{0, 1, 0}, {0, 0, 1}, {6 - 2*n, -11 + n, 6}} characteristic polynomials:(6 - 2 n - 11 x + n x + 6 x^2 - x^3).
|
|
0
| |
|
|
0, 0, 1, 6, 27, 114, 483, 2106, 9537, 44934, 219933, 1115286, 5842707, 31537314, 174991443, 996169146, 5808168297, 34633891734, 210943794093, 1310837402646, 8302614222507, 53552183145234, 351468155184003, 2345436650546106
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
COMMENTS
| This sequence seems to be one of a triangle of n level polynomials: -n -(2-n)+x 4 - n - 4 x + x^2 6 - 2 n - 11 x + n x + 6 x^2 - x^3 etc.
|
|
|
FORMULA
| M(n)={{0, 1, 0}, {0, 0, 1}, {6 - 2*n, -11 + n, 6}} v(n)=M(n).v(n-1) a(n) = v(n)[[1]];
|
|
|
MATHEMATICA
| M[0] = {{0, 1, 0}, {0, 0, 1}, {6, -11, 6}}; M[n_] := {{0, 1, 0}, {0, 0, 1}, {6 - 2*n, -11 + n, 6}} v[0] = {0, 0, 1}; v[n_] := v[n] = M[n].v[n - 1] a = Table[v[n][[1]], {n, 0, 30}]
|
|
|
CROSSREFS
| Sequence in context: A176476 A079742 A171475 * A196919 A049651 A109114
Adjacent sequences: A130016 A130017 A130018 * A130020 A130021 A130022
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Jun 16 2007
|
| |
|
|
