|
%I #9 Dec 26 2022 08:17:21
%S 1,1,-1,2,-1,1,3,-2,1,-1,5,-3,3,-1,-1,8,-5,5,-4,-1,7,13,-8,9,-7,4,7,
%T -27,21,-13,15,-13,9,-1,-27,83,34,-21,25,-22,19,-9,-14,83,-239,55,-34,
%U 41,-37,34,-25,-1,62,-239,659,89,-55,67,-61,59,-49,25,41,-205,659,-1781
%N A nonsense sequence.
%e {1},
%e {1, -1},
%e {2, -1, 1},
%e {3, -2, 1, -1},
%e {5, -3, 3, -1, -1},
%e {8, -5, 5, -4, -1, 7},
%e {13, -8, 9, -7, 4, 7, -27},
%e {21, -13, 15, -13, 9, -1, -27, 83},
%e {34, -21, 25, -22, 19, -9, -14,83, -239},
%e {55, -34, 41, -37, 34, -25, -1, 62, -239, 659},
%e {89, -55, 67, -61, 59, -49, 25, 41, -205, 659, -1781}
%t M = Inverse[{{0, 1}, {1, 1}}];
%t a = Table[(MatrixPower[M, n].{1, 0})[[1]], {n, -30, 30}];
%t Table[Table[(MatrixPower[M, m].{a[[30 - (n - m + 1)]], a[[30 - (m - 1)]]})[[1]], {m, 0, n}], {n, 0, 10}];
%t Flatten[%]
%K tabl,uned,obsc,less,sign
%O 0,4
%A _Roger L. Bagula_, Dec 05 2008
|
