|
| |
|
|
A107476
|
|
Expansion of -x*(-1+5*x+8*x^2-11*x^3+3*x^4)/(1-6*x-4*x^2+24*x^3-6*x^4-4*x^5+x^6) .
|
|
0
| |
|
|
0, 1, 1, 2, 3, 5, 4, -13, -157, -1050, -6575, -39949, -241792, -1459663, -8809863, -53159766, -320770109, -1935508203, -11678751308, -70468796429, -425204036789
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,4
|
|
|
COMMENTS
| The sequence is generated by taking increasing powers of the matrix M = {{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, 4, 6, -24, 4, 6}}, multiplying the vector {0, 1, 1, 2, 3, 5} from the right and storing the product's upper element.
|
|
|
LINKS
| Index to sequences with linear recurrences with constant coefficients, signature (6,4,-24,6,4,-1).
|
|
|
MATHEMATICA
| m=4 M = {{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, m, (m + 2), -m*(m + 2), m, (m + 2)}} v[0] = {0, 1, 1, 2, 3, 5} v[n_] := M.v[n - 1] a = Table[Abs[v[n][[1]]], {n, 1, 50}]
|
|
|
CROSSREFS
| Sequence in context: A101409 A131401 A061446 * A094140 A119745 A095753
Adjacent sequences: A107473 A107474 A107475 * A107477 A107478 A107479
|
|
|
KEYWORD
| sign
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 27 2005
|
|
|
EXTENSIONS
| Signed version reintroduced. - R. J. Mathar, Sep 11 2011
|
| |
|
|
