|
Search: id:A124026
|
|
|
| A124026 |
|
Let M = {{0, -1, 2}, {-1, 2, -1}, {2, -1, 0}}; v[1] = {0, 0, 1}; v[n] = M.v[n - 1]; then a(n) = v[n][[1]] |
|
+0
1
|
|
| 0, 2, 1, 14, 26, 132, 364, 1416, 4488, 16016, 53296, 184736, 625184, 2145600, 7303360, 24979584, 85196928, 291057920, 993379072, 3392317952, 11580678656, 39541748736, 134998297600, 460924372992, 1573671536640, 5372896120832
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
MATHEMATICA
|
M = {{0, -1, 2}, {-1, 2, -1}, {2, -1, 0}}; v[1] = {0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Adjacent sequences: A124023 A124024 A124025 this_sequence A124027 A124028 A124029
Sequence in context: A087169 A063613 A080346 this_sequence A106204 A083074 A141510
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula and Gary Adamson (rlbagulatftn(AT)yahoo.com), Oct 31 2006
|
|
EXTENSIONS
|
Edited by njas, Nov 04 2006
|
|
|
Search completed in 0.059 seconds
|
