|
%I #3 Mar 30 2012 17:34:33
%S 1,1,1,1,1,1,1,2,2,1,1,6,24,6,1,1,24,720,720,24,1,1,120,40320,362880,
%T 40320,120,1,1,720,3628800,479001600,479001600,3628800,720,1,1,5040,
%U 479001600,1307674368000,20922789888000,1307674368000,479001600,5040,1
%N Triangle read by rows: t(n,m)=(m*(m-n))!
%C Row sums are: {1, 2, 3, 6, 38, 1490, 443762, 965262242, 23539096637282, 4878608938121399042, 16752209028723653862101762,...}.
%C Second column is n!.
%e {1},
%e {1, 1},
%e {1, 1, 1},
%e {1, 2, 2, 1},
%e {1, 6, 24, 6, 1},
%e {1, 24, 720, 720, 24, 1},
%e {1, 120, 40320, 362880, 40320, 120, 1},
%e {1, 720, 3628800, 479001600, 479001600, 3628800, 720, 1},
%e {1, 5040, 479001600, 1307674368000, 20922789888000, 1307674368000, 479001600, 5040, 1},
%e {1, 40320, 87178291200, 6402373705728000, 2432902008176640000, 2432902008176640000, 6402373705728000, 87178291200, 40320, 1},
%e {1, 362880, 20922789888000, 51090942171709440000, 620448401733239439360000, 15511210043330985984000000, 620448401733239439360000, 51090942171709440000, 20922789888000, 362880, 1}
%t Table[Table[(k*(n - k))!, {k, 0, n}], {n, 0, 10}];
%t Flatten[%]
%K nonn,tabl
%O 0,8
%A _Roger L. Bagula_, Jan 27 2009
%E Edited by _N. J. A. Sloane_, Jan 31 2009
|
