|
Search: id:A122068
|
|
|
| A122068 |
|
Let M = {{2, 1, 0, 0, 0, 0}, {1, 2, 1, 0, 0, 0}, {0, 1, 2, 1, 0, 0}, {0, 0, 1, 2, 1, 0}, {0, 0, 0, 1, 2, 1}, {0, 0, 0, 0, 1, 2}}; v[1] = {1, 1, 1, 1, 1, 1}; v[n] = M.v[n - 1]; then a(n) =v[n][[1]] |
|
+0
1
|
|
| 1, 3, 10, 35, 126, 462, 1715, 6419, 24157, 91238, 345401, 1309574, 4970070, 18874261, 71705865, 272491891, 1035680954, 3936821259, 14965658694, 56893879910, 216295686467, 822315097387, 3126323230541, 11885921055638
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
REFERENCES
|
Peter Steinbach, "Golden Fields: A Case for the Heptagon", Mathematics Magazine, Vol. 70, No. 1, Feb. 1997.
|
|
MATHEMATICA
|
M = {{2, 1, 0, 0, 0, 0}, {1, 2, 1, 0, 0, 0}, {0, 1, 2, 1, 0, 0}, {0, 0, 1, 2, 1, 0}, {0, 0, 0, 1, 2, 1}, {0, 0, 0, 0, 1, 2}}; v[1] = {1, 1, 1, 1, 1, 1}; v[n_] := v[n] = M.v[n - 1]; a = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Cf. A087946, A081567.
Sequence in context: A047037 A134391 A087946 this_sequence A099908 A167403 A001700
Adjacent sequences: A122065 A122066 A122067 this_sequence A122069 A122070 A122071
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Gary Adamson (rlbagulatftn(AT)yahoo.com), Oct 15 2006
|
|
|
Search completed in 0.002 seconds
|
