|
|
A076111
|
|
Product of terms in n-th row of A076110.
|
|
3
|
|
|
1, 2, 15, 280, 9945, 576576, 49579075, 5925744000, 939536222625, 190787784140800, 48279601331512551, 14894665739501184000, 5502449072258318805625, 2397950328737212204032000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = n^n * Pochhammer(n, 1 + 1/n). - G. C. Greubel, Mar 04 2020
|
|
MAPLE
|
|
|
MATHEMATICA
|
Table[Product[j*n+1, {j, n}], {n, 0, 15}] (* G. C. Greubel, Mar 04 2020 *)
|
|
PROG
|
(Maxima) A076111(n):=prod(1+n*k, k, 1, n)$
(PARI) vector(16, n, my(m=n-1); prod(j=1, m, j*m+1)) \\ G. C. Greubel, Mar 04 2020
(Magma) [1] cat [&*[j*n+1: j in [1..n]]: n in [1..15]]; // G. C. Greubel, Mar 04 2020
(Sage) [product(j*n+1 for j in (1..n)) for n in (0..15)] # G. C. Greubel, Mar 04 2020
(GAP) List([0..15], n-> Product([1..n], j-> j*n+1) ); # G. C. Greubel, Mar 04 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 20 2003
|
|
STATUS
|
approved
|
|
|
|