|
%I #10 Feb 03 2023 08:18:07
%S 1,2,2,2,0,4,4,0,-4,8,12,0,8,-32,8,48
%N A finite irregular triangle.
%C Row sums are 1, 2, 4, 8, 16, 32.
%e {1},
%e {2},
%e {2, 2},
%e {0, 4, 4},
%e {0, -4, 8, 12},
%e {0, 8, -32, 8, 48}
%t a1 = {
%t {1},
%t {1, 1},
%t {1, 2 *n, 1},
%t {1, -1 + 2 *n + 2 n^2, -1 + 2 n + 2 n^2, 1},
%t {1, -2 + 2 *n + 2 n^2 + 2 n^3, 2 - 8 n + 4 n^2 + 8 n^3, -2 + 2* n + 2 n^2 + 2 n^3, 1},
%t {1, -3 + 2 n + 2 n^2 + 2 n^3 + 2 n^4, 2 + 2 n - 18 n^2 + 2 n^3 + 22 n^4, 2 + 2 n - 18 n^2 + 2 n^3 + 22 n^4, -3 + 2 n + 2 n^2 + 2 n^3 + 2 n^4, 1}
%t }
%t Table[CoefficientList[Apply[Plus, a1[[m]]], n], {m, 1, Length[a1]}];
%t Flatten[%]
%Y Cf. A142463.
%K tabf,uned,sign,less,fini,full
%O 0,2
%A _Roger L. Bagula_, Jan 20 2009
|
