OFFSET
0,8
COMMENTS
Moving the terms in each column of this triangle, see the example, upwards to row 0 gives Losanitsch’s triangle A034851 as a square array. - Johannes W. Meijer, Aug 24 2013
The number of ways to cover n-length line by exactly k 2-length segments excluding symmetric covers. - Philipp O. Tsvetkov, Nov 08 2013
Also the number of equivalence classes of ways of placing k 2 X 2 tiles in an n X 2 rectangle under all symmetry operations of the rectangle. - Christopher Hunt Gribble, Feb 16 2014
T(n, k) is the number of irreducible caterpillars with n+3 edges and diameter k+2. - Christian Barrientos, Apr 05 2020
FORMULA
T(n, k) = A034851(n-k, k), n >= 0 and 0 <= k <= floor(n/2).
T(n, k) = T(n-1, k) + T(n-2, k-1) - C((n-3)/2-(k-1)/2, (n-3)/2-(k-1)) except when n or k even then T(n, k) = T(n-1, k) + T(n-2, k-1) with T(0, 0) = 1, T(n, 0) = 0 for n<0 and T(n, k) = 0 for k < 0 and k > floor(n/2). - Johannes W. Meijer, Aug 24 2013
EXAMPLE
The first few rows of triangle T(n, k) are:
n/k: 0, 1, 2, 3
0: 1
1: 1
2: 1, 1
3: 1, 1
4: 1, 2, 1
5: 1, 2, 2
6: 1, 3, 4, 1
7: 1, 3, 6, 2
MAPLE
From Johannes W. Meijer, Aug 24 2013: (Start)
T := proc(n, k) option remember: if n <0 then return(0) fi: if k < 0 or k > floor(n/2) then return(0) fi: A034851(n-k, k) end: A034851 := proc(n, k) option remember; local t; if k = 0 or k = n then return(1) fi; if n mod 2 = 0 and k mod 2 = 1 then t := binomial(n/2-1, (k-1)/2) else t := 0; fi; A034851(n-1, k-1) + A034851(n-1, k)-t; end: seq(seq(T(n, k), k=0..floor(n/2)), n=0..16); # End first program
T := proc(n, k) option remember: if n < 0 then return(0) fi: if k < 0 or k > floor(n/2) then return(0) fi: if n=0 then return(1) fi: if type(n, even) or type(k, even) then procname(n-1, k) + procname(n-2, k-1) else procname(n-1, k) + procname(n-2, k-1) - binomial((n-3)/2-(k-1)/2, (n-3)/2-(k-1)) fi: end: seq(seq(T(n, k), k=0..floor(n/2)), n=0..16); # End second program (End)
MATHEMATICA
t[n_?EvenQ, k_?OddQ] := Binomial[n, k]/2;
t[n_, k_] := (Binomial[n, k] + Binomial[Quotient[n, 2], Quotient[k, 2]])/2;
T[n_, k_] := t[n - k, k];
Table[T[n, k], {n, 0, 16}, {k, 0, Quotient[n, 2]}] // Flatten (* Jean-François Alcover, Jul 21 2022 *)
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Gerald McGarvey, Feb 24 2005
EXTENSIONS
Definition edited, incorrect formula deleted, keyword corrected and extended by Johannes W. Meijer, Aug 24 2013
STATUS
approved