login
Triangle T(n,k), read by rows, given by (0, 1, 2, -1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.
2

%I #18 Oct 02 2018 05:40:13

%S 1,0,1,0,1,1,0,3,2,1,0,8,7,3,1,0,21,22,12,4,1,0,55,67,43,18,5,1,0,144,

%T 200,147,72,25,6,1,0,377,588,486,271,110,33,7,1,0,987,1708,1566,976,

%U 450,158,42,8,1

%N Triangle T(n,k), read by rows, given by (0, 1, 2, -1/2, 1/2, 0, 0, 0, 0, 0, 0, 0, ...) DELTA (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, ...) where DELTA is the operator defined in A084938.

%C Riordan array (1, x*(1-x)^2/(1-3*x+x^2)).

%C Antidiagonal sums: see A052946.

%H Michael De Vlieger, <a href="/A204533/b204533.txt">Table of n, a(n) for n = 0..11475</a> (rows 0 <= n <= 150).

%F Sum_{k=0..n} T(n,k) = A204200(n+1).

%F T(n,k) = 3*T(n-1,k) + T(n-1,k-1) + T(n-3,k-1) - T(n-2,k) - 2*T(n-2,k-1).

%F G.f.: (-1 + 3*x - x^2)/(-1 + 3*x - x^2 + x*y - 2*x^2*y + x^3*y). - _R. J. Mathar_, Aug 11 2015

%F T(n,m) = Sum_{k=0..n-1} C(k,m-1)*C(n-2*m+k,n-k-1), T(0,0)=1. - _Vladimir Kruchinin_, Sep 27 2018

%e Triangle begins:

%e 1;

%e 0, 1;

%e 0, 1, 1;

%e 0, 3, 2, 1;

%e 0, 8, 7, 3, 1;

%e 0, 21, 22, 12, 4, 1;

%e 0, 55, 67, 43, 18, 5, 1;

%e 0, 144, 200, 147, 72, 25, 6, 1;

%t Table[Sum[Binomial[k, m - 1] Binomial[n - 2 m + k, n - k - 1], {k, 0, n - 1}] + Boole[n == m == 0], {n, 0, 9}, {m, 0, n}] // Flatten (* _Michael De Vlieger_, Sep 26 2018 *)

%o (Maxima)

%o T(n,m):= if n=0 and m=0 then 1 else sum(binomial(k,m-1)*binomial(n-2*m+k,n-k-1),k,0,n-1); /* _Vladimir Kruchinin_, Sep 27 2018 */

%o (PARI) T(n,k) = if ((n==0) && (k==0), 1, sum(i=0, n-1, binomial(i,k-1)*binomial(n-2*k+i,n-i-1))); \\ _Michel Marcus_, Sep 27 2018

%Y Cf. diagonals: A000007, A088305, A000012, A001477, A055998.

%K nonn,tabl

%O 0,8

%A _Philippe Deléham_, Jan 16 2012