|
%I #2 Mar 30 2012 17:34:39
%S 1,1,1,1,12,1,1,37,37,1,1,116,452,116,1,1,305,2544,2544,305,1,1,752,
%T 12497,25552,12497,752,1,1,1761,46541,171269,171269,46541,1761,1,1,
%U 4064,160080,969956,1717376,969956,160080,4064,1,1,9181,524928,5006448
%N A triangle sequence of the form:q=2:t(n,m,q)=Sum[q^i*Floor[Eulerian[n + 1, m]/2^i], {i, 0, 10}]
%C Row sums are:
%C {1, 2, 14, 76, 686, 5700, 52052, 439144, 3985578, 39906884, 439073132,...}.
%F q=32:
%F t(n,m,q)=Sum[q^i*Floor[Eulerian[n + 1, m]/2^i], {i, 0, 10}]
%e {1},
%e {1, 1},
%e {1, 12, 1},
%e {1, 37, 37, 1},
%e {1, 116, 452, 116, 1},
%e {1, 305, 2544, 2544, 305, 1},
%e {1, 752, 12497, 25552, 12497, 752, 1},
%e {1, 1761, 46541, 171269, 171269, 46541, 1761, 1},
%e {1, 4064, 160080, 969956, 1717376, 969956, 160080, 4064, 1},
%e {1, 9181, 524928, 5006448, 14412884, 14412884, 5006448, 524928, 9181, 1},
%e {1, 20444, 1678653, 24236928, 107117828, 172965424, 107117828, 24236928, 1678653, 20444, 1}
%t << DiscreteMath`Combinatorica`
%t t[n_, m_, q_] = Sum[q^i*Floor[Eulerian[n + 1, m]/2^i], {i, 0, 10}];
%t Table[Flatten[Table[Table[t[n, m, q], {m, 0, n}], {n, 0, 10}]], {q, 1, 10}]
%K nonn,tabl,uned
%O 0,5
%A _Roger L. Bagula_, Mar 06 2010
|
