A066841 a(n) = Product{k|n} k^(n/k); product is over the positive divisors of n.

1, 2, 3, 16, 5, 432, 7, 2048, 243, 8000, 11, 143327232, 13, 87808, 455625, 67108864, 17, 117546246144, 19, 1310720000000, 15752961, 5451776, 23, 252428641478023053312, 78125, 35995648, 387420489, 3537090251849728, 29

Offset: 1

Author

Leroy Quet, Jan 20 2002

Keywords

• nonn

Examples

			a(6) = 432 = 1^6 * 2^3 * 3^2 * 6^1 because 1, 2, 3 and 6 are the divisors of 6.
		

Links

• Harry J. Smith, Table of n, a(n) for n = 1..200

Crossrefs

Cf. A140554.

Programs

Mathematica

Table[Times @@ Map[#^(n/#) &, Divisors@ n], {n, 29}] (* Michael De Vlieger, Sep 24 2017 *)

PARI

{ for (n=1, 200, d=divisors(n); p=1; for (i=2, length(d), k=d[i]; p*=k^(n/k)); write("b066841.txt", n, " ", p) ) } \\ Harry J. Smith, Apr 01 2010