OFFSET
1,3
COMMENTS
FORMULA
T(n, n)=X(n, n-1) and T(n, k)=T(n-1, k)/GCD(T(n-1, k), X(n, k-1)), where X(n, 0)=n and X(n, k)=X(n, k-1)/GCD(T(n-1, k), X(n, k-1)) for 1<=k<n.
MATHEMATICA
T[n_, n_] := X[n, n-1];
T[n_, k_] := T[n, k] = T[n-1, k]/GCD[T[n-1, k], X[n, k-1]];
X[n_, 0] := n;
X[n_, k_] := X[n, k] = X[n, k-1]/GCD[T[n-1, k], X[n, k-1]];
Table[T[n, k], {n, 1, 14}, {k, 1, n}] // Flatten (* _Jean-François Alcover_, Sep 20 2021 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
_Reinhard Zumkeller_, Sep 20 2004
STATUS
approved