OFFSET
0,3
LINKS
FORMULA
PROG
(PARI) A328841(n) = { my(p=2, r=1, s=0); while(n, s += ((!!(n%p))*r); r *= p; n = n\p; p = nextprime(1+p)); (s); };
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Oct 30 2019
STATUS
approved