OFFSET
0,2
PROG
(PARI) A348996(n) = { my(m=1, p=2); while(n, if(n%p, m *= (1+(p^(n%p)))); n = n\p; p = nextprime(1+p)); (m); };
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Nov 07 2021
STATUS
approved