|
| |
|
|
A097637
|
|
A tensor of Fibonacci tensors ( super -Fibonacci) as a flattened sequence: a second level self-similar construction.
|
|
0
| |
|
|
0, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 3, 1, 1, 1, 2, 1, 2, 2, 3, 1, 2, 2, 3, 2, 3, 3, 5, 1, 2, 2, 3, 2, 3, 3, 5, 2, 3, 3, 5, 3, 5, 5, 8, 2, 3, 3, 5, 3, 5, 5, 8, 3, 5, 5, 8, 5, 8, 8, 13, 3, 5, 5, 8, 5, 8, 8, 13, 5, 8, 8, 13, 8, 13, 13, 21, 5, 8, 8, 13, 8, 13, 13, 21, 8, 13, 13, 21, 13, 21, 21, 34, 8
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,8
|
|
|
FORMULA
| M={{0, 1}, {1, 1} A[0]:={{0, 1}, {1, 1}}; A[1]=M.A[0] A[2]=M.A[1] AA[0]:={{A[0], A[1]}, {A[1], A[2]}} a(n) = Flatten[Table[MatrixPower[M, n].AA[0], {n, 0, 12}]]
|
|
|
MATHEMATICA
| Clear[n, A, M, AA, MM] M={{0, 1}, {1, 1}}; A[0]:={{0, 1}, {1, 1}}; A[1]=M.A[0] A[2]=M.A[1] (* tensor of tensors Fibonacci*) AA[0]:={{A[0], A[1]}, {A[1], A[2]}} MatrixForm[M.AA[0]] MatrixForm[AA[0]] (* Markov matrices flattened to a sequence*) a=Flatten[Table[MatrixPower[M, n].AA[0], {n, 0, 12}]] Dimensions[a] ListPlot[a, PlotJoined->True]
|
|
|
CROSSREFS
| Sequence in context: A138474 A058761 A050119 * A161094 A074807 A165194
Adjacent sequences: A097634 A097635 A097636 * A097638 A097639 A097640
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 20 2004
|
| |
|
|
