A066842 a(n) = Product_{k|n} k^k; product is over the positive divisors, k, of n.

1, 4, 27, 1024, 3125, 5038848, 823543, 17179869184, 10460353203, 125000000000000, 285311670611, 11501279977342425366528, 302875106592253, 36604861748562100682752, 36947297000885009765625

Offset

1,2

Links

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

Example

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

Mathematica

Table[Times@@(Divisors[n]^Divisors[n]), {n, 20}] (* Harvey P. Dale, May 23 2021 *)

Prog

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

Crossrefs

Sequence in context: A197990 A362838 A068327 * A133032 A271385 A347146

Adjacent sequences: A066839 A066840 A066841 * A066843 A066844 A066845

Keyword

nonn

Author

Leroy Quet, Jan 20 2002

Status

approved