OFFSET
1,4
COMMENTS
LINKS
FORMULA
PROG
(PARI) A294875(n) = { my(m=1, e); fordiv(n, d, if(d>1, e = ispower(d); if(e>1, m *= prime(e-1)))); m; };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Nov 11 2017
STATUS
approved