|
Search: id:A103610
|
|
|
| A103610 |
|
4 X infinity array read by rows: let M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, 0, 1, 0}}, w[0] = {0, 0, 1, 1}', w[n]' = M*w[n -1]'; the n-th row of the array is w[n]' (the prime denotes transpose). |
|
+0
1
|
|
| 0, 0, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 2, 2, 1, 2, 2, 3, 2, 2, 3, 3, 2, 3, 3, 5, 3, 3, 5, 5, 3, 5, 5, 8, 5, 5, 8, 8, 5, 8, 8, 13, 8, 8, 13, 13, 8, 13, 13, 21, 13, 13, 21, 21, 13, 21, 21, 34, 21, 21, 34, 34, 21, 34, 34, 55, 34, 34, 55, 55, 34, 55, 55, 89, 55, 55, 89, 89, 55, 89
(list; graph; listen)
|
|
|
OFFSET
|
0,16
|
|
|
MATHEMATICA
|
M = {{0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}, {1, 0, 1, 0}} w[0] = {0, 0, 1, 1} w[n_] := w[n] = M.w[n - 1] a = Flatten[Table[w[n], {n, 0, Floor[200/4]}]] (* polynomial*) Det[M - x*IdentityMatrix[4]] Solve[Det[M - x*IdentityMatrix[4]] == 0, x]
|
|
CROSSREFS
|
Sequence in context: A029435 A089643 A115268 this_sequence A109705 A025848 A065382
Adjacent sequences: A103607 A103608 A103609 this_sequence A103611 A103612 A103613
|
|
KEYWORD
|
nonn,tabf
|
|
AUTHOR
|
Roger Bagula (rlbagulatftn(AT)yahoo.com), Mar 24 2005
|
|
EXTENSIONS
|
Edited by N. J. A. Sloane (njas(AT)research.att.com), Sep 24 2006
|
|
|
Search completed in 0.002 seconds
|
