OFFSET
1,2
FORMULA
EXAMPLE
First few rows of the triangle:
1;
2, 1;
4, 3, 1;
8, 7, 4, 1;
15, 14, 10, 5, 1;
26, 25, 20, 13, 6, 1;
42, 41, 35, 26, 16, 7, 1;
...
MATHEMATICA
rows = 11;
R[n_, k_] /; k <= n := k (n - k) + 1; R[0, 0] = 1; R[_, _] = 0;
MR = Table[R[n, k], {n, 0, rows-1}, {k, 0, rows-1}];
MB = Table[Boole[0 <= k <= n], {n, 0, rows-1}, {k, 0, rows -1}];
T = MR.MB;
Table[T[[n, k]], {n, 1, rows}, {k, 1, n}] // Flatten (* Jean-François Alcover, Apr 01 2020 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Gary W. Adamson, Oct 23 2007
EXTENSIONS
Typos corrected by Jean-François Alcover, Apr 01 2020
STATUS
approved