OFFSET
1,2
LINKS
Metin Sariyar, Table of n, a(n) for n = 1..5039
MATHEMATICA
Table[d = Divisors[n]; Apply[Times, d]Apply[Plus, d], {n, 1, 39}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Emrehan Halici (emrehan(AT)halici.com.tr), Oct 27 2002
EXTENSIONS
Edited by Robert G. Wilson v, Oct 29 2002
STATUS
approved