|
Search: id:A097637
|
|
|
| A097637 |
|
A tensor of Fibonacci tensors ( super -Fibonacci) as a flattened sequence: a second level self-similar construction. |
|
+0
1
|
|
| 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; listen)
|
|
|
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 this_sequence A161094 A002339 A074807
Adjacent sequences: A097634 A097635 A097636 this_sequence A097638 A097639 A097640
|
|
KEYWORD
|
nonn,uned
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 20 2004
|
|
|
Search completed in 0.002 seconds
|
