|
|
A205553
|
|
Square array by antidiagonals: C(max(i-1,2j-2),min(i-1,2j-2)), i>=1, j>=1.
|
|
0
|
|
|
1, 1, 1, 1, 2, 1, 1, 4, 1, 1, 1, 6, 6, 3, 1, 1, 8, 15, 4, 6, 1, 1, 10, 28, 20, 1, 10, 1, 1, 12, 45, 56, 15, 5, 15, 1, 1, 14, 66, 120, 70, 6, 15, 21, 1, 1, 16, 91, 220, 210, 56, 1, 35, 28, 1, 1, 18, 120, 364, 495, 252, 28, 7, 70, 36, 1, 1, 20, 153, 560, 1001, 792, 210, 8
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,5
|
|
LINKS
|
|
|
EXAMPLE
|
Northwest corner:
1....1....1....1....1
1....2....4....6....8
1....1....6....15...28
1....3....4....20...56
1....6....1....15...70
|
|
MATHEMATICA
|
f[i_, j_] := Binomial[Max[i - 1, 2 j - 2], Min[i - 1, 2 j - 2]]
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
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|