|
Search: id:A122605
|
|
|
| A122605 |
|
Let M = {{0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1}, {-1, 4, 6, -10, -5, 6, 1}}; let v[1] = {1, 0, 0, 0, 0, 0, 0}; v[n] = M.v[n - 1]. Then a(n) = v[n][[1]] |
|
+0
1
|
|
| 1, 0, 0, 0, 0, 0, 0, -1, -1, -7, -8, -35, -44, -154, -208, -637, -910, -2548, -3808, -9996, -15504, -38760, -62015, -149225, -245135, -572010, -961125, -2186886, -3746886, -8348172, -14547183, -31842580, -56309764, -121415344, -217478888, -462925232, -838520240, -1765205473, -3228800413
(list; graph; listen)
|
|
|
OFFSET
|
1,10
|
|
|
COMMENT
|
Characteristic polynomial: - 1 + 4 x + 6 x^2 - 10 x^3 - 5 x^4 + 6 x^5 + x^6 - x^7.
|
|
REFERENCES
|
P. Steinbach, Golden fields: a case for the heptagon, Math. Mag. 70 (1997), no. 1, 22-31. ( Note to editor: I had the wrong Steinbach reference in the 8 X 8, 9 X 9, 10 X 10 cases )
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 1}, {-1, 4, 6, -10, -5, 6, 1}}; v[1] = {1, 0, 0, 0, 0, 0, 0}; v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Cf. A066170.
Adjacent sequences: A122602 A122603 A122604 this_sequence A122606 A122607 A122608
Sequence in context: A080982 A042875 A048064 this_sequence A037953 A041106 A119453
|
|
KEYWORD
|
sign
|
|
AUTHOR
|
Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Sep 20 2006
|
|
EXTENSIONS
|
Edited by njas, Feb 11 2007
|
|
|
Search completed in 0.002 seconds
|
