OFFSET
1,1
EXAMPLE
Triangle begins:
2
4 6
4 6 6
6 16 16 12
4 6 6 16 6
...
MATHEMATICA
T[n_, k_] := A005179[[DivisorSigma[0, n] + DivisorSigma[0, k]]];
Table[T[n, k], {n, 1, 12}, {k, 1, n}] // Flatten (* Jean-François Alcover, Sep 15 2021 *)
PROG
(PARI) T(n, k) = my(x=numdiv(n)+numdiv(k), y=1); while(numdiv(y)!= x, y++); y; \\ Michel Marcus, Sep 15 2021
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, Oct 31 2004
STATUS
approved