OFFSET
0,5
LINKS
FORMULA
T(n,k) = n! * Sum_{i=0..u(n,k)} i^(n-k*i)/((n-k*i)!*i!*k!^i) with u(n,k) = 0 if k=0 and u(n,k) = floor(n/k) else.
EXAMPLE
T(4,2) = 9: 3->{1,2}<-4, 2->{1,3}<-4, 2->{1,4}<-3, 1->{2,3}<-4, 1->{2,4}<-3, 1->{3,4}<-2, {1,2}{3,4}, {1,3}{2,4}, {1,4}{2,3}.
Triangle begins:
1;
0, 1;
0, 3, 1;
0, 10, 3, 1;
0, 41, 9, 4, 1;
0, 196, 40, 10, 5, 1;
...
MAPLE
u:= (n, k)-> `if`(k=0, 0, floor(n/k)):
T:= (n, k)-> n! *add(i^(n-k*i)/ ((n-k*i)! *i! *k!^i), i=0..u(n, k)):
seq(seq(T(n, k), k=0..n), n=0..12);
MATHEMATICA
t[n_, n_] = 1; t[_, 0] = 0; t[n_, k_] := n!*Sum[i^(n-k*i)/((n-k*i)!*i!*k!^i), {i, 0, n/k}]; Table[t[n, k], {n, 0, 12}, {k, 0, n}] // Flatten (* Jean-François Alcover, Dec 19 2013 *)
PROG
(PARI) u(n, k) = if(k==0, 0, n\k);
T(n, k) = n!*sum(j=0, u(n, k), j^(n-k*j)/(k!^j*j!*(n-k*j)!)); \\ Seiichi Manyama, May 13 2022
CROSSREFS
AUTHOR
Alois P. Heinz, Aug 12 2008
STATUS
approved