OFFSET
1,8
EXAMPLE
Northwest corner:
1.....20....84....220
20....1.....84....924
84....84....1.....220
455...5005..5005..455
MATHEMATICA
f[i_, j_] := Binomial[Max[3 i - 3, 3 j - 3], Min[3 i - 3, 3 j - 3]]
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