|
%I #20 Jan 12 2019 08:07:08
%S 1,1,1,1,2,6,1,6,90,1680,1,24,2520,369600,63063000,1,120,113400,
%T 168168000,305540235000,623360743125120,1,720,7484400,137225088000,
%U 3246670537110000,88832646059788350720,2670177736637149247308800
%N Triangle t(n,m) = (n*m)!/(m!^n) read by rows, 0<=m<=n.
%C Row sums are in A221177.
%H Seiichi Manyama, <a href="/A141906/b141906.txt">Rows n = 0..26, flattened</a>
%e 1;
%e 1, 1;
%e 1, 2, 6;
%e 1, 6, 90, 1680;
%e 1, 24, 2520, 369600, 63063000;
%e 1, 120, 113400, 168168000, 305540235000, 623360743125120;
%e 1, 720, 7484400, 137225088000, 3246670537110000, 88832646059788350720, 2670177736637149247308800;
%p A141906 := proc(n,m)
%p (n*m)!/m!^n ;
%p end proc:
%p seq(seq(A141906(n,m),m=0..n),n=0..5) ; # _R. J. Mathar_, Nov 08 2011
%t Clear[t, n, m]; t[n_, m_] = (n*m)!/m!^n; Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]
%Y Cf. A034841, A187783, A221177.
%K nonn,tabl,easy
%O 0,5
%A _Roger L. Bagula_ and _Gary W. Adamson_, Sep 14 2008
|
