A097886 Flattened 5 x 5 matrices: the n-th power a matrix M multiplied by some matrix A.
1, 1, 1, 1, 2, 1, 1, 1, 2, 3, 1, 1, 2, 3, 5, 1, 2, 3, 5, 7, 2, 3, 5, 7, 10, 1, 1, 1, 2, 3, 1, 1, 2, 3, 5, 1, 2, 3, 5, 7, 2, 3, 5, 7, 10, 3, 5, 7, 10, 14, 1, 1, 2, 3, 5, 1, 2, 3, 5, 7, 2, 3, 5, 7, 10, 3, 5, 7, 10, 14, 5, 7, 10, 14, 20, 1, 2, 3, 5, 7, 2, 3, 5, 7, 10, 3, 5, 7, 10, 14, 5, 7, 10, 14, 20, 7, 10
Offset: 1
Programs
-
Mathematica
M={{0, 1, 0, 0, 0}, {0, 0, 1, 0, 0}, {0, 0, 0, 1, 0}, {0, 0, 0, 0, 1}, {1, 0, -1, 1, 1}} A[n_]:=M.A[n-1]; A[0]:={{1, 1, 1, 1, 1}, {1, 1, 1, 1, 2}, {1, 1, 1, 2, 3}, {1, 1, 2, 3, 5}, {1, 2, 3, 5, 7}}; b=Flatten[Table[M.A[n], {n, 0, 12}]]
Extensions
Edited by the Associate Editors of the OEIS, Nov 17 2009
Comments