OFFSET
1,2
FORMULA
EXAMPLE
a(6) = 1*sigma(1) * 2*sigma(2) * 3*sigma(3) * 6*sigma(6) = (1*1) * (2*3) * (3*4) * (6*12) = 5184.
MATHEMATICA
Array[Times @@ Map[# DivisorSigma[1, #] &, Divisors@ #] &, 34] (* Michael De Vlieger, Mar 24 2019 *)
PROG
(Magma) [&*[d * SumOfDivisors(d): d in Divisors(n)]: n in [1..100]]
(PARI) a(n) = my(p=1); fordiv(n, d, p *= d*sigma(d)); p; \\ Michel Marcus, Mar 22 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Mar 22 2019
STATUS
approved