|
Search: id:A122299
|
|
|
| A122299 |
|
Hollow 5 X 5 vector matrix Markov. |
|
+0
1
|
|
| 0, 1, 1, 5, 12, 38, 107, 316, 915, 2671, 7771, 22640, 65922, 191993, 559112, 1628281, 4741905, 13809541, 40216516, 117119750, 341079507, 993301748, 2892722267, 8424270271, 24533405595, 71446899736, 208069745986, 605946785585
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Hollow matrices from: An[d_] := Table[If[n + m - 1 == d, 1, If[n - 1 == 0, 1, If[m - 1 == 0, 1, 0]]], {n, 1, d}, {m, 1, d}]
|
|
FORMULA
|
M = {{1, 1, 1, 1, 1}, {1, 0, 0, 1, 0}, {1, 0, 1, 0, 0}, {1, 1, 0, 0, 0}, {1, 0, 0, 0, 0}}; v[1] = {0, 0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a(n) =v[n][[1]]
|
|
MATHEMATICA
|
M = {{1, 1, 1, 1, 1}, {1, 0, 0, 1, 0}, {1, 0, 1, 0, 0}, {1, 1, 0, 0, 0}, {1, 0, 0, 0, 0}}; v[1] = {0, 0, 0, 0, 1}; v[n_] := v[n] = M.v[n - 1]; a1 = Table[v[n][[1]], {n, 1, 50}]
|
|
CROSSREFS
|
Sequence in context: A077918 A034752 A095310 this_sequence A162269 A028322 A169588
Adjacent sequences: A122296 A122297 A122298 this_sequence A122300 A122301 A122302
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Gary Adamson and Roger Bagula (qntmpkt(AT)yahoo.com), Oct 19 2006
|
|
|
Search completed in 0.002 seconds
|
