This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A137370 #13 Feb 12 2024 08:20:12
%S A137370 1,0,1,1,-2,1,-8,12,-6,1,81,-108,54,-12,1,-1024,1280,-640,160,-20,1,
%T A137370 15625,-18750,9375,-2500,375,-30,1,-279936,326592,-163296,45360,-7560,
%U A137370 756,-42,1,5764801,-6588344,3294172,-941192,168070,-19208,1372,-56,1,-134217728,150994944,-75497472,22020096,-4128768
%N A137370 Triangle: signed version of A055134.
%e A137370 {1},
%e A137370 {0, 1},
%e A137370 {1, -2, 1},
%e A137370 {-8, 12, -6, 1},
%e A137370 {81, -108, 54, -12, 1},
%e A137370 {-1024, 1280, -640, 160, -20, 1},
%e A137370 {15625, -18750, 9375, -2500, 375, -30, 1},
%e A137370 {-279936, 326592, -163296, 45360, -7560, 756, -42, 1},...
%t A137370 B[0] = {{x, y}, {t*y, x}}; B[n_] := B[n] = B[n - 1].B[0];
%t A137370 Table[Det[B[n]] /. x -> Sqrt[z] /. y -> 1 /. t -> n, {n, 0, 10}];
%t A137370 a = Join[{{1}}, Table[CoefficientList[Det[B[n]] /. x -> Sqrt[z] /. y ->1 /. t -> n, z], {n, 0, 10}]];
%t A137370 Flatten[a]
%K A137370 tabl,sign,less
%O A137370 1,5
%A A137370 _Roger L. Bagula_, Apr 09 2008
%E A137370 Edited by _Joerg Arndt_, Feb 12 2024