|
%I #5 Sep 08 2013 18:20:46
%S 1,3,3,7,9,7,15,21,21,15,31,45,49,45,31,63,93,105,105,93,63,127,189,
%T 217,225,217,189,127,255,381,441,465,465,441,381,255,511,765,889,945,
%U 961,945,889,765,511,1023,1533,1785,1905,1953,1953,1905,1785,1533,1023,2047
%N Triangle T(n,m)=( 2^(m+1)-1 ) * ( 2^(n-m+1)-1 ), read by rows, 0<=m<=n.
%C Row sums are A045618.
%F T(n,m) = T(n,n-m).
%e 1;
%e 3, 3;
%e 7, 9, 7;
%e 15, 21, 21, 15;
%e 31, 45, 49, 45, 31;
%e 63, 93, 105, 105, 93, 63;
%e 127, 189, 217, 225, 217, 189, 127;
%e 255, 381, 441, 465, 465, 441, 381, 255;
%e 511, 765, 889, 945, 961, 945, 889, 765, 511;
%e 1023, 1533, 1785, 1905, 1953, 1953, 1905, 1785, 1533, 1023;
%e 2047, 3069, 3577, 3825, 3937, 3969, 3937, 3825, 3577, 3069, 2047;
%t Table[Table[(2^(m + 1) - 1)*(2^(n - m + 1) - 1), {m, 0, n}], {n, 0, 10}]; Flatten[%]
%Y Cf. A000225 (first column), A068156 (second column).
%K nonn,tabl
%O 0,2
%A _Roger L. Bagula_ and _Gary W. Adamson_, Oct 16 2008
|
