|
| |
|
|
A121987
|
|
Let M(n) = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-n - 1, 0, 0, n + 1}}; v[0] = {1, 1, 1, 1}; v[n] = M(n).v[n - 1] + {0, 0, 0, n + 1}; then a(n) = v[n][[1]].
|
|
0
| |
|
|
1, 1, 1, 1, 2, 6, 24, 120, 714, 4963, 39520, 354609, 3538960, 38873978, 466013508, 6053565700, 84700374374, 1269922505955, 20311303879168, 345189255328973, 6211881989182800, 118001629266860074, 2359626359259618140
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,5
|
|
|
COMMENTS
| A 4 X 4 Markov chain that begins like n! but then falls short.
|
|
|
MATHEMATICA
| M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {-n - 1, 0, 0, n + 1}}; v[0] = {1, 1, 1, 1}; v[n_] := v[n] = M.v[n - 1] + {0, 0, 0, n + 1} a = Table[v[n][[1]], {n, 0, 30}]
|
|
|
CROSSREFS
| Sequence in context: A177532 A177530 A177531 * A177524 A164872 A052398
Adjacent sequences: A121984 A121985 A121986 * A121988 A121989 A121990
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Roger Bagula (rlbagulatftn(AT)yahoo.com), Sep 10 2006
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com), Jun 17 2007
|
| |
|
|
