login
If n = product(p_i^e_i), a(n) = product((p_i^e_i)^(p_i^e_i)).
0

%I #6 Mar 30 2012 17:35:24

%S 1,4,27,256,3125,108,823543,16777216,387420489,12500,285311670611,

%T 6912,302875106592253,3294172,84375,18446744073709551616,

%U 827240261886336764177,1549681956,1978419655660313589123979,800000,22235661,1141246682444

%N If n = product(p_i^e_i), a(n) = product((p_i^e_i)^(p_i^e_i)).

%C Multiplicative with a(p^e) = (p^e)^(p^e) = p^(e*p^e).

%C Equivalently, product over pp a unitary prime power divisor of n of pp^pp.

%o (PARI) a(n)=local(fm,pp);fm=factor(n);prod(k=1,matsize(fm)[1],(pp=fm[k,1]^fm[k,2])^pp)

%Y Cf. A133482.

%K nonn,mult

%O 1,2

%A _Franklin T. Adams-Watters_, May 05 2011