A066842 - OEIS

%I #15 May 23 2021 18:19:12

%S 1,4,27,1024,3125,5038848,823543,17179869184,10460353203,

%T 125000000000000,285311670611,11501279977342425366528,302875106592253,

%U 36604861748562100682752,36947297000885009765625

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

%H Harry J. Smith, <a href="/A066842/b066842.txt">Table of n, a(n) for n = 1..100</a>

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

%t Table[Times@@(Divisors[n]^Divisors[n]),{n,20}] (* _Harvey P. Dale_, May 23 2021 *)

%o (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

%K nonn

%O 1,2

%A _Leroy Quet_, Jan 20 2002