OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..200
EXAMPLE
The positive divisors of 4 are 1, 2, 4. So a(4) = 1^1 *2^2 *4^4 *(1/1^1 +1/2^2 +1/4^4) = 1284.
MAPLE
with(numtheory):
a:= n-> (l-> mul(k^k, k=l)*add(1/k^k, k=l))(divisors(n)):
seq(a(n), n=1..20); # Alois P. Heinz, May 22 2015
MATHEMATICA
a[n_] := Function[l, Product[k^k, {k, l}] * Sum[1/k^k, {k, l}]] @ Divisors[n]; Array[a, 20] (* Jean-François Alcover, Mar 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Oct 11 2000
STATUS
approved