OFFSET
0,2
LINKS
PROG
(PARI) A373600(n) = { my(p=2, s=0); while(n, s += (n%p)*p; n = n\p; p = nextprime(1+p)); (s); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jun 18 2024
STATUS
approved