|
|
A097886
|
|
Flattened 5 x 5 matrices: the n-th power a matrix M multiplied by some matrix A.
|
|
0
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
COMMENTS
|
This sequence is an interlacing of 25 copies of the absolute values of A107332.
|
|
LINKS
|
|
|
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}]]
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,less,obsc
|
|
AUTHOR
|
|
|
EXTENSIONS
|
Edited by the Associate Editors of the OEIS, Nov 17 2009
|
|
STATUS
|
approved
|
|
|
|