|
%I #3 Mar 30 2012 17:34:32
%S 1,1,1,1,1,1,1,4,4,1,1,18,20,18,1,1,96,108,108,96,1,1,600,672,684,672,
%T 600,1,1,4320,4800,4896,4896,4800,4320,1,1,35280,38880,39600,39744,
%U 39600,38880,35280,1,1,322560,352800,358560,360000,360000,358560,352800
%N Triangle read by rows: t(n,m)=If[m*(n - m) == 0, 1, n!*(1 - 1/Binomial[n, m])].
%C Row sums are {1, 2, 3, 10, 58, 410, 3230, 28034, 267266, 2787842, 31662722,...}
%e {1},
%e {1, 1},
%e {1, 1, 1},
%e {1, 4, 4, 1},
%e {1, 18, 20, 18, 1},
%e {1, 96, 108, 108, 96, 1},
%e {1, 600, 672, 684, 672, 600, 1},
%e {1, 4320, 4800, 4896, 4896, 4800, 4320, 1},
%e {1, 35280, 38880, 39600, 39744, 39600, 38880, 35280, 1},
%e {1, 322560, 352800, 358560, 360000, 360000, 358560, 352800, 322560, 1},
%e {1, 3265920, 3548160, 3598560, 3611520, 3614400, 3611520, 3598560, 3548160, 3265920, 1}
%t Table[Table[ If[m*(n - m) == 0, 1, n!*(1 - 1/Binomial[n, m])], {m, 0, n}], {n, 0, 10}];
%t Flatten[%]
%K nonn,tabl
%O 0,8
%A _Roger L. Bagula_, Jan 21 2009
%E Edited by _N. J. A. Sloane_, Jan 25 2009
|
