OFFSET
0,4
LINKS
FORMULA
PROG
(PARI) A346469(n) = { my(s=0, t=0, m=1, p=2, e); while(n, e = (n%p); if(e, m *= (p^e); s += (1/p); t += (e/p)); n = n\p; p = nextprime(1+p)); (gcd(s, t)*m); };
CROSSREFS
KEYWORD
AUTHOR
Antti Karttunen, Jul 21 2021
STATUS
approved