|
%I #2 Mar 30 2012 17:34:39
%S 1,1,1,1,7,1,1,19,19,1,1,49,130,49,1,1,110,599,599,110,1,1,236,2376,
%T 4826,2376,236,1,1,487,8578,31220,31220,8578,487,1,1,997,29200,176378,
%U 312223,176378,29200,997,1,1,2018,95630,909937,2619425,2619425,909937
%N A triangle sequence of the form:t(n,m]=Sum[Floor[Eulerian[n + 1, m]/2^i], {i, 0, 10}]
%C Row Sums are:
%C {1, 2, 9, 40, 230, 1420, 10052, 80572, 725375, 7254022, 79794578,...}.
%F t(n,m]=Sum[Floor[Eulerian[n + 1, m]/2^i], {i, 0, 10}]
%e {1},
%e {1, 1},
%e {1, 7, 1},
%e {1, 19, 19, 1},
%e {1, 49, 130, 49, 1},
%e {1, 110, 599, 599, 110, 1},
%e {1, 236, 2376, 4826, 2376, 236, 1},
%e {1, 487, 8578, 31220, 31220, 8578, 487, 1},
%e {1, 997, 29200, 176378, 312223, 176378, 29200, 997, 1},
%e {1, 2018, 95630, 909937, 2619425, 2619425, 909937, 95630, 2018, 1},
%e {1, 4064, 305120, 4404821, 19466715, 31433136, 19466715, 4404821, 305120, 4064, 1}
%t Clear[t, n, m, i]
%t << DiscreteMath`Combinatorica`
%t Sum[Floor[Eulerian[n + 1, m]/2^i], {i, 0, 10}];
%t Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
%t Flatten[%]
%K nonn,tabl,uned
%O 0,5
%A _Roger L. Bagula_, Mar 06 2010
|
