A137370 Triangle: signed version of A055134.

1, 0, 1, 1, -2, 1, -8, 12, -6, 1, 81, -108, 54, -12, 1, -1024, 1280, -640, 160, -20, 1, 15625, -18750, 9375, -2500, 375, -30, 1, -279936, 326592, -163296, 45360, -7560, 756, -42, 1, 5764801, -6588344, 3294172, -941192, 168070, -19208, 1372, -56, 1, -134217728, 150994944, -75497472, 22020096, -4128768

Offset: 1

Author

Roger L. Bagula, Apr 09 2008

Keywords

• tabl
• sign
• less

Examples

			{1},
{0, 1},
{1, -2, 1},
{-8, 12, -6, 1},
{81, -108, 54, -12, 1},
{-1024, 1280, -640, 160, -20, 1},
{15625, -18750, 9375, -2500, 375, -30, 1},
{-279936, 326592, -163296, 45360, -7560, 756, -42, 1},...
		

Programs

Mathematica

B[0] = {{x, y}, {t*y, x}}; B[n_] := B[n] = B[n - 1].B[0];
Table[Det[B[n]] /. x -> Sqrt[z] /. y -> 1 /. t -> n, {n, 0, 10}];
a = Join[{{1}}, Table[CoefficientList[Det[B[n]] /. x -> Sqrt[z] /. y ->1 /. t -> n, z], {n, 0, 10}]];
Flatten[a]

Extensions

Edited by Joerg Arndt, Feb 12 2024