|
%I #9 May 19 2013 23:59:31
%S 1,1,2,1,3,1,3,4,1,6,5,1,4,10,6,1,10,15,7,1,5,20,21,8,1,15,35,28,9,1,
%T 6,35,56,36,10,1,21,70,84,45,11,1,7,56,126,120,55,12,1,28,126,210,165,
%U 66,13,1,8,84,252,330,220,78,14,1,36,210,462,495,286,91,15,1
%N Irregular triangle t(n,m) = binomial(m+1,n-m) read by rows floor((n+1)/2) <= m <= n.
%C Row sums are in A052952.
%C Contains the right half of each row of A030528. - _R. J. Mathar_, May 19 2013
%e 1;
%e 1;
%e 2, 1;
%e 3, 1;
%e 3, 4, 1;
%e 6, 5, 1;
%e 4, 10, 6, 1;
%e 10, 15, 7, 1;
%e 5, 20, 21, 8, 1;
%e 15, 35, 28, 9, 1;
%e 6, 35, 56, 36, 10, 1;
%e 21, 70, 84, 45, 11, 1;
%e 7, 56, 126, 120, 55, 12, 1;
%e 28, 126, 210, 165, 66, 13, 1;
%e 8, 84, 252, 330, 220, 78, 14, 1;
%e 36, 210, 462, 495, 286, 91, 15, 1;
%t t[n_, m_] := Binomial[m + 1, n - m];
%t Table[Table[t[n, m], {m, Floor[(n + 1)/2], n}], {n, 0, 15}];
%t Flatten[%]
%o (PARI) T(m,n)=binomial(n+1,m-n) \\ _Charles R Greathouse IV_, May 19 2013
%Y Cf. A180987 (read diagonally downwards), A098925, A026729, A085478, A165253
%K nonn,tabf,easy
%O 0,3
%A _Roger L. Bagula_, May 01 2010
|
