OFFSET
1,3
COMMENTS
LINKS
E. Barcucci, A. Del Lungo, R. Pinzani and R. Sprugnoli, La hauteur des polyominos dirigés verticalement convexes, Actes du 31e Séminaire Lotharingien de Combinatoire, Publi. IRMA, Université Strasbourg I (1993).
E. Barcucci, R. Pinzani and R. Sprugnoli, Directed column-convex polyominoes by recurrence relations, Lecture Notes in Computer Science, No. 668, Springer, Berlin (1993), pp. 282-298.
FORMULA
T(n,k) = T(n-1,k-1)+Sum(T(n-k,j), j=1..k-1)+Sum(T(n-j,k-1), j=1..k-1).
EXAMPLE
T(2,2)=2 because we have the vertical and the horizontal dominoes.
Triangle starts:
1;
0,2;
0,1,4;
0,0,5,8;
0,0,3,15,16;
0,0,1,17,39,32;
MAPLE
T:=proc(n, k) if n<=0 or k<=0 then 0 elif n=1 and k=1 then 1 else T(n-1, k-1)+add(T(n-k, j), j=1..k-1)+add(T(n-j, k-1), j=1..k-1) fi end: for n from 1 to 12 do seq(T(n, k), k=1..n) od; # yields sequence in triangular form
MATHEMATICA
T[n_, k_] := T[n, k] = Which[n <= 0 || k <= 0, 0, n == 1 && k == 1, 1, True, T[n-1, k-1] + Sum[T[n-k, j], {j, 1, k-1}] + Sum[T[n-j, k-1], {j, 1, k-1}]];
Table[T[n, k], {n, 1, 12}, {k, 1, n}] // Flatten (* Jean-François Alcover, Aug 25 2024, after Maple program *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Emeric Deutsch, Aug 04 2006
STATUS
approved