a:= n-> (Matrix(48, (i, j)-> if (i=j-1) then 1 elif j=1 then [1, 2, 0, -1, -3, -1, -2, 0, 5, 6, 5, 1, -5, -11, -9, -7, 2, 9, 15, 16, 4, -5, -13, -16, -13, -5, 4, 16, 15, 9, 2, -7, -9, -11, -5, 1, 5, 6, 5, 0, -2, -1, -3, -1, 0, 2, 1, -1][i] else 0 fi)^n)[1, 1]: seq(a(n), n=0..39); #
Alois P. Heinz, Jul 31 2008