|
%I #6 Dec 26 2022 08:17:43
%S 0,0,1,-1,2,1,1,0,1,4,3,1,2,-1,3,-4,12,7,5,2,3,-1,4,-5,9,30,19,11,8,3,
%T 5,-2,7,-9,16,-25,80,49,31,18,13,5,8,-3,11,-14,25,-39,64,208,129,79,
%U 50,29,21,8,13,-5,18,-23,41,-64,105,-169,546,337,209,128,81,47,34,13,21,-8,29
%N This sequence needs a meaningful name.
%e {0},
%e {0, 1, -1},
%e {2, 1, 1, 0, 1},
%e {4, 3, 1, 2, -1, 3, -4},
%e {12, 7, 5, 2, 3, -1, 4, -5, 9},
%e {30, 19, 11, 8, 3, 5, -2, 7, -9, 16, -25},
%e {80, 49, 31, 18, 13, 5, 8, -3, 11, -14, 25, -39, 64},
%e {208, 129, 79, 50, 29, 21, 8, 13, -5, 18, -23, 41, -64, 105, -169},
%e {546, 337, 209, 128, 81, 47, 34, 13, 21, -8, 29, -37, 66, -103, 169, -272, 441},
%e {1428, 883, 545, 338, 207, 131, 76, 55, 21, 34, -13, 47, -60, 107, -167, 274, -441, 715, -1156},
%e {3740, 2311, 1429, 882, 547, 335, 212, 123, 89, 34, 55, -21, 76, -97, 173, -270, 443, -713, 1156, -1869, 3025}
%t M = Inverse[{{0, 1}, {1, 1}}];
%t Table[Table[(MatrixPower[M, m].{Fibonacci[n], Fibonacci[n - 1]})[[1]], {m, -n, n}], {n, 0, 10}];
%t Flatten[%]
%K tabf,uned,obsc,less,sign
%O 0,5
%A _Roger L. Bagula_, Dec 05 2008
|
