A185879 Weight array of A185877, by antidiagonals.

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, 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, 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

Offset

1,2

Comments

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

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

Links

G. C. Greubel, Table of n, a(n) for the first 50 rows, flattened

Formula

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

Example

Northwest corner:
1...2...4...6...8...10...12...14
0...2...2...2...2...2....2....2
0...2...2...2...2...2....2....2
0...2...2...2...2...2....2....2
0...2...2...2...2...2....2....2

Mathematica

f[n_, k_] := 2; f[1, k_] := 2*(k - 1); f[n_, 1] := 0; f[1, 1] := 1;
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 *)

Crossrefs

Cf. A144112, A185877.

Sequence in context: A319690 A341419 A366503 * A356918 A081880 A144289

Adjacent sequences: A185876 A185877 A185878 * A185880 A185881 A185882

Keyword

nonn,tabl

Author

Clark Kimberling, Feb 05 2011

Status

approved