OFFSET
0,4
LINKS
PROG
(PARI) A349000(n) = { my(m1=1, m2=1, p=2, u); while(n, if(n%p, u = p^(n%p); m1 *= u; m2 *= (1+u)); n = n\p; p = nextprime(1+p)); gcd(m1, m2); };
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Nov 07 2021
STATUS
approved