A185879 - OEIS

%I #10 Jul 21 2017 02:48:46

%S 1,2,0,4,2,0,6,2,2,0,8,2,2,2,0,10,2,2,2,2,0,12,2,2,2,2,2,0,14,2,2,2,2,

%T 2,2,0,16,2,2,2,2,2,2,2,0,18,2,2,2,2,2,2,2,2,0,20,2,2,2,2,2,2,2,2,2,0,

%U 22,2,2,2,2,2,2,2,2,2,2,0,24,2,2,2,2,2,2,2,2,2,2,2,0,26,2,2,2,2,2,2,2,2,2,2,2,2,0

%N Weight array of A185877, by antidiagonals.

%C A member of the accumulation chain ...< A185879 < A185877 < A185878 < A185880 <...

%C See A144112 for the definitions of weight array and accumulation array.

%H G. C. Greubel, <a href="/A185879/b185879.txt">Table of n, a(n) for the first 50 rows, flattened</a>

%F T(1,k) = 2*(k-1) for k>=1; T(n,1)=0 for n>1; T(n,k)=2 otherwise.

%e Northwest corner:

%e 1...2...4...6...8...10...12...14

%e 0...2...2...2...2...2....2....2

%e 0...2...2...2...2...2....2....2

%e 0...2...2...2...2...2....2....2

%e 0...2...2...2...2...2....2....2

%t f[n_, k_] := 2; f[1, k_] := 2*(k - 1); f[n_, 1] := 0; f[1, 1] := 1;

%t TableForm[Table[f[n, k], {n, 1, 7}, {k, 1, 7}]] Table[f[n - k + 1, k], {n, 5}, {k, n, 1, -1}] // Flatten (* _G. C. Greubel_, Jul 21 2017 *)

%Y Cf. A144112, A185877.

%K nonn,tabl

%O 1,2

%A _Clark Kimberling_, Feb 05 2011