[go: up one dir, main page]

login
A342920
a(n) = A342002(A108951(n)).
9
1, 1, 1, 2, 1, 2, 1, 8, 12, 2, 1, 4, 1, 2, 6, 16, 1, 24, 1, 4, 6, 2, 1, 26, 50, 2, 16, 4, 1, 62, 1, 10, 6, 2, 126, 48, 1, 2, 6, 18, 1, 24, 1, 4, 46, 2, 1, 22, 1486, 100, 6, 4, 1, 32, 94, 8, 6, 2, 1, 54, 1, 2, 72, 20, 264, 12, 1, 4, 6, 120, 1, 376, 1, 2, 1142, 4, 242, 12, 1, 36, 342, 2, 1, 48, 272, 2, 6, 8, 1, 92, 318
OFFSET
1,4
FORMULA
a(n) = A342002(A108951(n)) = A327860(A108951(n)) / A328572(A108951(n)).
PROG
(PARI)
A034386(n) = prod(i=1, primepi(n), prime(i));
A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A034386(f[i, 1])^f[i, 2]) };
A342920(n) = A342002(A108951(n)); \\ Needs also code from A342002.
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 06 2021
STATUS
approved