OFFSET
1,4
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
Antti Karttunen, Data supplement: n, a(n) computed for n = 1..65537
PROG
(PARI) A331286(n) = if(1==n, 1, my(f=factor(n), e=1, m=1); forstep(i=#f~, 1, -1, e += f[i, 2]; m *= (e>>valuation(e, 2))^(primepi(f[i, 1])-if(1==i, 0, primepi(f[i-1, 1])))); (m));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jan 14 2020
STATUS
approved