OFFSET
0,17
LINKS
Antti Karttunen, Table of n, a(n) for n = 0..2589
Antti Karttunen, Data supplement: n, a(n) computed for n = 0..32768
PROG
(PARI) A329032(n) = { my(s=0, m=1, p=2, e); while(n, e = (n%p); if(e, m *= (p^(e-1)); s += ((e-1)/p)); n = n\p; p = nextprime(1+p)); (s*m); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 07 2019
STATUS
approved