editing
approved
editing
approved
1;
0, 1;
0, 2, 1;
0, 6, 3, 1;
0, 24, 18, 4, 1;
0, 120, 90, 30, 5, 1;
0, 720, 630, 200, 45, 6, 1;
0, 5040, 4410, 1610, 350, 63, 7, 1;
0, 40320, 37800, 13440, 3290, 560, 84, 8, 1;
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
b[n_, i_] := b[n, i] = If[n == 0, 1, If[i < 1, 0, b[n, i - 1] + If[i > n, 0, Binomial[n, i]*b[n - i, i]]]]; T[n_, k_] := b[n, k] - If[k == 0, 0, b[n, k - 1]]; Table[T[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* Jean-François Alcover, Dec 12 2016, Alois P. Heinz *)
approved
editing
editing
approved
1, 0, 1, 0, 2, 1, 0, 6, 3, 1, 0, 24, 18, 4, 1, 0, 120, 90, 30, 5, 1, 0, 720, 630, 200, 45, 6, 1, 0, 5040, 4410, 1610, 350, 63, 7, 1, 0, 40320, 37800, 13440, 3290, 560, 84, 8, 1, 0, 362880, 340200, 130200, 30870, 5922, 840, 108, 9, 1, 0, 3628800, 3515400, 1327200, 334950, 61992, 9870, 1200, 135, 10, 1
editing
approved