OFFSET
1,3
LINKS
Jean-François Alcover, Table of n, a(n) for n = 1..5050
MATHEMATICA
row[n_] := row[n] = Divisors[A038547[[n]]];
T[n_, k_] := row[n][[k]];
Table[T[n, k], {n, 1, 100}, {k, 1, n}] // Flatten (* Jean-François Alcover, Sep 19 2021 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Reinhard Zumkeller, May 11 2006
STATUS
approved