OFFSET
1,2
EXAMPLE
Northwest corner:
1....3....6....10...15
3....1....4....10...20
6....4....1....5....15
10...10...5....1....6
15...20...15...6....1
MATHEMATICA
g[k_] := k + 1;
f[i_, j_] := Binomial[Max[g[i], g[j]], Min[g[i], g[j]]]
TableForm[Table[f[i, j], {i, 1, 10}, {j, 1, 10}]]
Flatten[Table[f[i, n + 1 - i], {n, 1, 14}, {i, 1, n}]]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Jan 28 2012
STATUS
approved