|
%I #16 Aug 02 2023 00:23:45
%S 1,1,1,1,-1,1,1,0,0,1,1,0,-1,0,1,1,0,0,0,0,1,1,0,0,-1,0,0,1,1,0,0,0,0,
%T 0,0,1,1,0,0,0,-1,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,0,0,0,0,-1,0,0,0,0,1,
%U 1,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,0,-1,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1
%N Weight array of max{n,k}, by antidiagonals.
%C A member of the accumulation chain ... < A185917 < A051125 < A185958 < ..., where A051125, written as a rectangular array M, is given by M(n,k) = max{n,k}. See A144112 for definitions of weight array and accumulation array.
%C Equals A115359 when the first row of the array is removed. - _Georg Fischer_, Jul 26 2023
%H G. C. Greubel, <a href="/A185917/b185917.txt">Table of n, a(n) for the first 50 rows, flattened</a>
%F T(n,k)= 1 if n=1 or k=1; T(n,n)= -1 for n>1; T(n,k)= 0 otherwise.
%e Northwest corner:
%e 1, 1, 1, 1, 1, 1
%e 1, -1, 0, 0, 0, 0
%e 1, 0, -1, 0, 0, 0
%e 1, 0, 0, -1, 0, 0
%e 1, 0, 0, 0, -1, 0
%t T[1, k_] := 1; T[n_, 1] := 1; T[n_, n_] := -1; T[n_, k_] := 0;
%t TableForm[Table[T[n, k], {n, 1, 5}, {k, 1, 5}]]
%t Table[T[n - k + 1, k], {n, 10}, {k, n, 1, -1}] (* _G. C. Greubel_, Jul 22 2017 *)
%Y Cf. A051125, A115359, A144112.
%K tabl,sign
%O 1
%A _Clark Kimberling_, Feb 07 2011
|
