|
|
A108699
|
|
a(n) = Product{k=1 to n} sigma_{n-k+1}(k), where sigma_m(k) = sum{j|k} j^m.
|
|
1
|
|
|
1, 3, 20, 630, 59976, 61631856, 218220912000, 11776702254660000, 3875704211027805137280, 16098074199800249059584941760, 426743858218976407063631274998400000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
a(5) = 1^5 * (1^4 +2^4) * (1^3 +3^3) * (1^2 +2^2 +4^2) * (1^1 +5^1) = 1 * 17 * 28 * 21 * 6 = 59976.
|
|
MAPLE
|
with(numtheory): s:=proc(n, k) local div: div:=divisors(n): sum(div[j]^k, j=1..tau(n)) end: a:=n->product(s(i, n-i+1), i=1..n): seq(a(n), n=1..13); # Emeric Deutsch, Jul 13 2005
|
|
PROG
|
(PARI) a(n) = prod(k=1, n, sigma(k, n-k+1)); \\ Michel Marcus, Aug 16 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|