OFFSET
0,13
LINKS
Alois P. Heinz, Rows n = 0..200, flattened
EXAMPLE
Rows: {0}; {0,0}; {0,1,0}; {0,1,1,0}; ...
MATHEMATICA
T[0, 0] = T[0, 1] = T[1, 0] = 0; T[1, 1] = T[2, 1] = T[1, 2] = 1; T[h_, k_] /; Not[h/2 <= k <= 2h] = 0; T[h_, k_] := T[h, k] = If[h-1 >= k/2, T[h-1, k], 0] + If[k-1 >= h/2, T[h, k-1], 0]; row[s_] := Table[T[h, s-h], {h, 0, s}]; Table[row[s], {s, 0, 12}] // Flatten (* Jean-François Alcover, Dec 02 2016 *)
CROSSREFS
KEYWORD
AUTHOR
EXTENSIONS
Offset changed to 0 by Alois P. Heinz, Oct 06 2016
STATUS
approved