OFFSET
1,2
EXAMPLE
First five rows:
0
3....1
8....7....2
15...21...13...3
24...46...44...21...4
MATHEMATICA
z = 12;
f[n_, k_] := n*Binomial[n, k] - Binomial[n - 1, k - 1]
t = Table[f[n, k], {n, 1, z}, {k, 1, n}];
TableForm[t] (* A208656 as a triangle *)
Flatten[t] (* A208656 as a sequence *)
r = Table[f[n, k], {n, 1, z}, {k, n, 1, -1}];
TableForm[r] (* A208657 as a triangle *)
Flatten[r] (* A208657 as a sequence *)
Table[Sum[f[n, k], {k, 1, n}], {n, 1, 3 z}](* A208658 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Mar 01 2012
EXTENSIONS
Definition amended by Georg Fischer, Feb 01 2022
STATUS
approved