login
A nonsense sequence.
0

%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