OFFSET
1,3
FORMULA
EXAMPLE
The first rows are:
n n-th row
-- -------------
1 [1]
2 [1, 2]
3 [1, 3]
4 [1, 2, 4]
5 [1, 5]
6 [1, 6]
7 [1, 7]
8 [1, 2, 8]
9 [1, 3, 9]
10 [1, 10]
11 [1, 11]
12 [1, 2, 12]
13 [1, 13]
14 [1, 14]
15 [1, 15]
16 [1, 2, 4, 16]
PROG
(PARI) row(n) = { my (f=factor(n)); Set(apply (k -> prod (i=1, #f~, f[i, 1]^(f[i, 2]\k)), [1..1+if (n==1, 0, vecmax(f[, 2]~))])) }
CROSSREFS
KEYWORD
nonn,tabf
AUTHOR
Rémy Sigrist, Apr 19 2020
STATUS
approved