A048743 - OEIS

%I #11 Aug 02 2015 21:40:55

%S 1,1,2,1,12,6,1,42,108,24,1,120,900,960,120,1,310,5400,15600,9000,720,

%T 1,756,27090,168000,252000,90720,5040,1,1778,121716,1428840,4410000,

%U 4021920,987840,40320,1,4080,508200,10442880,58388400,106686720

%N Triangle a(n,k) = k!*C(n-1,k-1)*Stirling_2(n,k), 1<=k<=n.

%e The 3rd row is formed from [ 1,2,6,24 ]*[ 1,3,3,1 ]*[ 1,7,6,1 ] => [ 1,42,108,24 ].

%e 1;

%e 1,2;

%e 1,12,6;

%e 1,42,108,24;

%e 1,120,900,960,120;

%p A048743 := proc(n,k) k!*binomial(n-1,k-1)*combinat[stirling2](n,k) ; end proc:

%p seq(seq(A048743(n,k),k=1..n),n=1..12) ; # _R. J. Mathar_, Aug 30 2011

%t Flatten[Table[k!Binomial[n-1,k-1]StirlingS2[n,k],{n,10},{k,n}]] (* _Harvey P. Dale_, Feb 21 2013 *)

%Y Cf. A007318, A008277. Row sums give A045531.

%K easy,nonn,tabl

%O 1,3

%A _Alford Arnold_

%E More terms from _James A. Sellers_, Apr 22 2000