OFFSET
1,5
EXAMPLE
Northwest corner:
1....1....1....1....1
1....2....1....3....6
1....4....6....4....1
1....6....15...20...15
1....8....28...56...70
MATHEMATICA
f[i_, j_] := Binomial[Max[2 i - 2, j - 1], Min[2 i - 2, j - 1]]
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