|
%I #2 Mar 30 2012 17:34:28
%S 1,1,1,2,5,2,3,11,11,3,5,21,31,21,5,7,38,76,76,38,7,11,69,171,228,171,
%T 69,11,17,120,359,599,599,359,120,17,25,206,718,1436,1795,1436,718,
%U 206,25,38,346,1384,3230,4844,4844,3230,1384,346,38,57,577,2595,6920,12110
%N A triangular sequence designed with row sums near 3^n: t(n,m)=If[m == 0 || m == n, Floor[3^n/2^n], Floor[(3^n/2^n)*Binomial[n, m]] + 1].
%C Row sums are:
%C {1, 2, 7, 24, 78, 242, 745, 2248, 6734, 20114, 60081,...}.
%F t(n,m)=If[m == 0 || m == n, Floor[3^n/2^n], Floor[(3^n/2^n)*Binomial[n, m]] + 1].
%e {1},
%e {1, 1},
%e {2, 5, 2},
%e {3, 11, 11, 3},
%e {5, 21, 31, 21, 5},
%e {7, 38, 76, 76, 38, 7},
%e {11, 69, 171, 228, 171, 69, 11},
%e {17, 120, 359, 599, 599, 359, 120, 17},
%e {25, 206, 718, 1436, 1795, 1436, 718, 206, 25},
%e {38, 346, 1384, 3230, 4844, 4844, 3230, 1384, 346, 38},
%e {57, 577, 2595, 6920, 12110, 14532, 12110, 6920, 2595, 577, 57}
%t Clear[t, n, m]; t[n_, m_] = If[ m == 0 || m == n, Floor[3^n/2^n], Floor[(3^n/2^n)*Binomial[n, m]] + 1];
%t Table[Table[t[n, m], {m, 0, n}], {n, 0, 10}];
%t Flatten[%]
%K nonn,tabl
%O 0,4
%A _Roger L. Bagula_, Dec 23 2008
|
