OFFSET
1,1
LINKS
FORMULA
PROG
(PARI)
A002110(n) = prod(i=1, n, prime(i));
A108951(n) = { my(f=factor(n)); prod(i=1, #f~, A002110(primepi(f[i, 1]))^f[i, 2]) }; \\ From A108951
memoA354351 = Map();
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 05 2022
STATUS
approved