OFFSET
0,2
LINKS
PROG
(PARI) A328624(n) = { my(m=1, p=2, e, g=1); while(n, e = (n%p); m *= (p^((g*e)%p)); g = e+1; n = n\p; p = nextprime(1+p)); (m); };
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 23 2019
STATUS
approved