A076111 Product of terms in n-th row of A076110.
1, 2, 15, 280, 9945, 576576, 49579075, 5925744000, 939536222625, 190787784140800, 48279601331512551, 14894665739501184000, 5502449072258318805625, 2397950328737212204032000
Offset: 0
Links
- G. C. Greubel, Table of n, a(n) for n = 0..230
Programs
-
GAP
List([0..15], n-> Product([1..n], j-> j*n+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
-
Maple
seq( mul(j*n+1, j=1..n), n=0..15); # G. C. Greubel, Mar 04 2020
-
Mathematica
Table[Product[j*n+1, {j,n}], {n,0,15}] (* G. C. Greubel, Mar 04 2020 *)
-
Maxima
A076111(n):=prod(1+n*k,k,1,n)$ makelist(A076111(n),n,0,30); /* Martin Ettl, Nov 07 2012 */
-
PARI
vector(16, n, my(m=n-1); prod(j=1,m, j*m+1)) \\ 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
Formula
a(n) = Prod_{k=1..n} (1+n*k). - Yalcin Aktar, Jul 14 2009
a(n) = n^n * Pochhammer(n, 1 + 1/n). - G. C. Greubel, Mar 04 2020
a(n) = A092985(n)*(n^2+1). - R. J. Mathar, Mar 30 2023
Extensions
More terms from Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Apr 20 2003
Comments