OFFSET
1,2
COMMENTS
Multiplicative with a(p^e) = (p^e)^(p^e) = p^(e*p^e).
Equivalently, product over pp a unitary prime power divisor of n of pp^pp.
PROG
(PARI) a(n)=local(fm, pp); fm=factor(n); prod(k=1, matsize(fm)[1], (pp=fm[k, 1]^fm[k, 2])^pp)
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Franklin T. Adams-Watters, May 05 2011
STATUS
approved