login
Triangle read by rows: t(n,m)=(1 + n!)*Binomial[n, m]-n!/Binomial[n, m].
0

%I #4 Oct 12 2012 14:54:54

%S 1,1,1,1,5,1,1,19,19,1,1,94,146,94,1,1,581,1198,1198,581,1,1,4206,

%T 10767,14384,10767,4206,1,1,34567,105621,176291,176291,105621,34567,1,

%U 1,317528,1127548,2257256,2821894,2257256,1127548,317528,1,1,3225609

%N Triangle read by rows: t(n,m)=(1 + n!)*Binomial[n, m]-n!/Binomial[n, m].

%C Row sums are {1, 2, 7, 40, 336, 3560, 44332, 632960, 10226560, 184954112, 3707638144, ...}.

%e {1},

%e {1, 1},

%e {1, 5, 1},

%e {1, 19, 19, 1},

%e {1, 94, 146, 94, 1},

%e {1, 581, 1198, 1198, 581, 1},

%e {1, 4206, 10767, 14384, 10767, 4206, 1},

%e {1, 34567, 105621, 176291, 176291, 105621, 34567, 1},

%e {1, 317528, 1127548, 2257256, 2821894, 2257256, 1127548, 317528, 1},

%e {1, 3225609, 13053636, 30477684, 45720126, 45720126, 30477684, 13053636, 3225609, 1},

%e {1, 35925130, 163215405, 435425880, 762030930, 914443452, 762030930, 435425880, 163215405, 35925130, 1}

%t Table[Table[ -n!/Binomial[n, m] + (1 + n!)*Binomial[n, m], {m, 0, n}], {n, 0, 10}]; Flatten[%]

%K nonn,tabl

%O 1,5

%A _Roger L. Bagula_ and _Gary W. Adamson_, Oct 03 2008

%E Edited by _N. J. A. Sloane_, Jan 05 2009