|
Search: id:A122522
|
|
|
| A122522 |
|
a(n) = a(n - 2) + a(n - 8). |
|
+0
1
|
|
| 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 7, 7, 10, 10, 14, 14, 19, 19, 26, 26, 36, 36, 50, 50, 69, 69, 95, 95, 131, 131, 181, 181, 250, 250, 345, 345, 476, 476, 657, 657, 907, 907, 1252, 1252, 1728, 1728, 2385, 2385, 3292, 3292, 4544, 4544, 6272, 6272, 8657, 8657
(list; graph; listen)
|
|
|
OFFSET
|
1,9
|
|
|
MATHEMATICA
|
a[0] = 1; a[1] = 1; a[2] = 1; a[3] = 1; a[4] = 1; a[5] = 1; a[6] = 1; a[7] = 1; a[n_] := a[n] = a[n - 2] + a[n - 8] Table[a[n], {n, 0, 100}] (*vector Matrix Markov*) M = {{0, 1, 0, 0, 0, 0, 0, 0}, {0, 0, 1, 0, 0, 0, 0, 0}, {0, 0, 0, 1, 0, 0, 0, 0}, {0, 0, 0, 0, 1, 0, 0, 0}, {0, 0, 0, 0, 0, 1, 0, 0}, {0, 0, 0, 0, 0, 0, 1, 0}, {0, 0, 0, 0, 0, 0, 0, 1}, {1, 0, 0, 0, 0, 0, 1, 0}}; v[1] = Table[1, {n, 1, 8}] v[n_] := v[n] = M.v[n - 1] a = Table[v[n][[1]], {n, 1, 100}]
|
|
CROSSREFS
|
Cf. A003269.
Sequence in context: A025151 A026801 A027191 this_sequence A029030 A008719 A079685
Adjacent sequences: A122519 A122520 A122521 this_sequence A122523 A122524 A122525
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 16 2006
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Sep 17 2006
|
|
|
Search completed in 0.002 seconds
|
