OFFSET
1,2
COMMENTS
Conjecture: the sequence is injective (all terms of this sequence occur only once).
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..1000
FORMULA
a(p) = A000217(p) = p*(p+1)/2 for a prime p.
EXAMPLE
a(4) = 30 because the divisors of 4 are: 1, 2 and 4; and T(1)*T(2)*T(4) = 1*3*10 = 30.
MAPLE
f:= n -> convert(map(t -> t*(t+1)/2, numtheory:-divisors(n)), `*`):
map(f, [$1..100]); # Robert Israel, Aug 09 2016
MATHEMATICA
t[n_]:=Divisors[n]*(Divisors[n]+1)/2; a[n_]:=Times@@t[n]; Array[a, 50] (* Ivan N. Ianakiev, Aug 15 2016 *)
PROG
(Magma) [(&*[d*(d+1) div 2: d in Divisors(n)]): n in [1..100]]
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Aug 09 2016
STATUS
approved