login
Triangle: m=5; e(n,k,n)=(k + m - 1)*e(n - 1, k, m) + (m*n - k + 1 - m)*e(n - 1, k - 1, m); t(n,k)=e(n,k,m)+e(n,n-k,m).
0

%I #7 Feb 18 2024 09:10:35

%S 2,1,1,1,10,1,1,80,80,1,1,775,1520,775,1,1,10915,25945,25945,10915,1,

%T 1,213720,542910,624670,542910,213720,1,1,5245530,14690640,16408670,

%U 16408670,14690640,5245530,1,1,151534685,479956020,553630850,464654480

%N Triangle: m=5; e(n,k,n)=(k + m - 1)*e(n - 1, k, m) + (m*n - k + 1 - m)*e(n - 1, k - 1, m); t(n,k)=e(n,k,m)+e(n,n-k,m).

%F m=5; e(n,k,n) = (k + m - 1)*e(n - 1, k, m) + (m*n - k + 1 - m)*e(n - 1, k - 1, m);

%F t(n,k) = e(n,k,m) + e(n,n-k,m).

%e {2},

%e {1, 1},

%e {1, 10, 1},

%e {1, 80, 80, 1},

%e {1, 775, 1520, 775, 1},

%e {1, 10915, 25945, 25945, 10915, 1},

%e {1, 213720, 542910, 624670, 542910, 213720, 1},

%e {1, 5245530, 14690640, 16408670, 16408670, 14690640, 5245530, 1},...

%t m = 5; e[n_, 0, m_] := 1;

%t e[n_, k_, m_] := 0 /; k >= n;

%t e[n_, k_, 1] := 1 /; k >= n;

%t e[n_, k_, m_] := (k + m - 1)e[n - 1, k, m] + (m*n - k + 1 - m)e[n - 1, k - 1, m];

%t Table[Table[e[n, k, m], {k, 0, n - 1}], {n, 1, 10}];

%t Table[Table[e[n, k, m] + e[n, n - k, m], {k, 0, n}], {n, 0, 10}];

%t Flatten[%]

%Y Cf. A054091, A054090, A008517, A156141.

%K nonn,tabl,uned

%O 0,1

%A _Roger L. Bagula_, Feb 05 2009