OFFSET
1,2
EXAMPLE
Northwest corner:
1....4....10...20...35
4....1....5....15...35
10...5....1....6....21
20...15...6....1....7
MATHEMATICA
g[k_] := k + 2;
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