A112359 Product of n-th row of A112358.

1, 2, 20, 1296, 616896, 2294480000, 68803020000000, 16921170978243840000, 34496793424028349312532480, 587395062985562798532990766497792, 84034508984208959408391703340160000000000, 101510206136861741998326287566434701976960000000000

Offset: 0

Author

Amarnath Murthy, Sep 05 2005

Keywords

• easy
• nonn

Crossrefs

Cf. A112356, A112357, A112358.

Programs

Maple

A008949 := proc(n,k) local i ; add(binomial(n,i),i=0..k) ; end: A112358 := proc(n,k) if k = 0 then 1 ; else binomial(n,k)*(A008949(n+1,k)+1)/2 ; fi ; end: A112359 := proc(n) local k ; mul( A112358(n,k),k=0..n ) ; end: for n from 0 to 15 do printf("%d, ",A112359(n)) ; od ; # R. J. Mathar, May 08 2007

Mathematica

A008949[n_, k_] := Sum[Binomial[n, j], {j, 0, k}];
A112358[n_, k_] := If[k == 0, 1, Binomial[A008949[n, k] + 1, 2] - Binomial[A008949[n, k - 1] + 1, 2]];
a[n_] := Product[A112358[n, k], {k, 0, n}];
Table[a[n], {n, 0, 11}] (* Jean-François Alcover, Aug 01 2023, after R. J. Mathar *)

Extensions

More terms from R. J. Mathar, May 08 2007