%I #13 Feb 12 2024 08:20:12
%S 1,0,1,1,-2,1,-8,12,-6,1,81,-108,54,-12,1,-1024,1280,-640,160,-20,1,
%T 15625,-18750,9375,-2500,375,-30,1,-279936,326592,-163296,45360,-7560,
%U 756,-42,1,5764801,-6588344,3294172,-941192,168070,-19208,1372,-56,1,-134217728,150994944,-75497472,22020096,-4128768
%N Triangle: signed version of A055134.
%e {1},
%e {0, 1},
%e {1, -2, 1},
%e {-8, 12, -6, 1},
%e {81, -108, 54, -12, 1},
%e {-1024, 1280, -640, 160, -20, 1},
%e {15625, -18750, 9375, -2500, 375, -30, 1},
%e {-279936, 326592, -163296, 45360, -7560, 756, -42, 1},...
%t B[0] = {{x, y}, {t*y, x}}; B[n_] := B[n] = B[n - 1].B[0];
%t Table[Det[B[n]] /. x -> Sqrt[z] /. y -> 1 /. t -> n, {n, 0, 10}];
%t a = Join[{{1}}, Table[CoefficientList[Det[B[n]] /. x -> Sqrt[z] /. y ->1 /. t -> n, z], {n, 0, 10}]];
%t Flatten[a]
%K tabl,sign,less
%O 1,5
%A _Roger L. Bagula_, Apr 09 2008
%E Edited by _Joerg Arndt_, Feb 12 2024