|
Search: id:A133379
|
|
|
| A133379 |
|
Vector Markov with characteristic polynomial: 160264 + 80136 x - 49 x^2 - x^3. |
|
+0
1
|
|
| 0, 1, 1, 80087, -3683863, 6598521383, -605702530167, 557868142906439, -74816611528953111, 48274263154574414055, -8271536696003575251895, 4261821240829074290673031, -863940478961362432734725719, 382532760867137139577205872167
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
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: A103873 A112785 A106775 this_sequence A102457 A102459 A095946
Adjacent sequences: A133376 A133377 A133378 this_sequence A133380 A133381 A133382
|
|
KEYWORD
|
uned,sign
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Oct 28 2007
|
|
|
Search completed in 0.002 seconds
|
