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