OFFSET
1,2
COMMENTS
Derangement-type quadratic Markov chain.
MATHEMATICA
M[n_] := {{0, -3}, {(n - 1), 5*(n - 1)}} v[1] = {0, 1} v[n_] := v[n] = M[n].v[n - 1] a = Table[Abs[v[n][[1]]], {n, 1, 25}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Jun 15 2005
EXTENSIONS
Edited by N. J. A. Sloane, Mar 29 2007. The prime indicates transposition. Possible M should be transposed too, the Mathematica code is not clear to me.
STATUS
approved