OFFSET
0,2
LINKS
PROG
(PARI) A346470(n) = { my(m=1, p=2, e); while(n, e = (n%p); if(e, m *= (p+1)*(p^(e-1))); n = n\p; p = nextprime(1+p)); (m); };
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Jul 21 2021
STATUS
approved