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,2

Links

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

Example

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A140554.

Sequence in context: A266265 A259209 A220849 * A266211 A363920 A074270

Adjacent sequences: A066838 A066839 A066840 * A066842 A066843 A066844

Keyword

nonn

Author

Leroy Quet, Jan 20 2002

Status

approved