OFFSET
1,2
LINKS
FORMULA
PROG
(PARI) A373985(n) = { my(f=factor(n), m=1, s=0); for(i=1, #f~, my(x=prod(i=1, primepi(f[i, 1]), prime(i))); s += f[i, 2]*x; m *= x^f[i, 2]); gcd(m, s); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 25 2024
STATUS
approved