OFFSET
1,2
EXAMPLE
Northwest corner:
1....3....5....7....9....11
3....1....10...35...84...165
5....10...1....21...126..462
7....35...21...1....36...330
MATHEMATICA
g[k_] := 2 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