|
|
A066841
|
|
a(n) = Product{k|n} k^(n/k); product is over the positive divisors of n.
|
|
3
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|