OFFSET
0,8
EXAMPLE
Since MA[0]=[[1,1,1,2],[1,1,2,3],[1,2,3,4],[2,3,4,5]], the 1st group (following the 0th group) of 16 terms is 1,1,1,2,1,1,2,3,1,2,3,4,2,3,4,5.
MAPLE
with(linalg): M:=matrix(4, 4, [0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1]): A[0]:=matrix(4, 4, [1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 3, 1, 2, 3, 4]): for n from 1 to 8 do A[n]:=multiply(M, A[n-1]) od: seq(seq(seq(A[k][i, j], j=1..4), i=1..4), k=0..8);
MATHEMATICA
(* Minimal Pisot theta 1 4 X 4 Markov sequence*) digits=15 M={{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, 0, 0, 1}} A[n_]:=M.A[n-1]; A[0]:={{1, 1, 1, 1}, {1, 1, 1, 2}, {1, 1, 2, 3}, {1, 2, 3, 4}}; i=IdentityMatrix[4] Det[M-x*i] (* flattened sequence of 4 X 4 matrices made with a theta1 Minimal Pisot recurrence*) b=Flatten[Table[M.A[n], {n, 0, digits}]] Dimensions[b][[1]] b=Flatten[Table[M.A[n], {n, 0, digits}]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Roger L. Bagula, Aug 31 2004
EXTENSIONS
Edited by N. J. A. Sloane, May 20 2006
STATUS
approved