|
| |
|
|
A133379
|
|
Vector Markov with characteristic polynomial: 160264 + 80136 x - 49 x^2 - x^3.
|
|
0
| |
|
|
0, 1, 1, 80087, -3683863, 6598521383, -605702530167, 557868142906439, -74816611528953111, 48274263154574414055, -8271536696003575251895, 4261821240829074290673031, -863940478961362432734725719, 382532760867137139577205872167
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,4
|
|
|
COMMENTS
| Limiting ratio is root:-307.723 Polynomial roots are all real numbers: {-307.723, -1.99756, 260.721}
|
|
|
FORMULA
| M = {{1, -1, 1}, {50, -46, -4}, {binomial[50, 3], -binomial[46, 3], -binomial[4, 3]}} v(n)=M*v(n-1) a(n) =v(n)[[1]]
|
|
|
EXAMPLE
| Sequence of equations in omega, alpha and {d0,d1,d2}:
omega=alpha-d0
50*omega=46*alpha+4*d1
Binomial[50,3]*omega=binomial[46,3]*alpha+binomial[4,3]*d2
|
|
|
MATHEMATICA
| M = {{1, -1, 1}, {50, -46, -4}, {Binomial[50, 3], -Binomial[46, 3], -Binomial[4, 3]}} v[0] = {0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a = Table[v[n][[1]], {n, 0, 20}]
|
|
|
CROSSREFS
| Sequence in context: A185473 A112785 A106775 * A204051 A102457 A102459
Adjacent sequences: A133376 A133377 A133378 * A133380 A133381 A133382
|
|
|
KEYWORD
| uned,sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 28 2007
|
| |
|
|
