A112359 Product of n-th row of A112358.

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

Offset

0,2

Links

Table of n, a(n) for n=0..11.

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 *)

Crossrefs

Cf. A112356, A112357, A112358.

Sequence in context: A013144 A239642 A369679 * A308231 A179594 A196749

Adjacent sequences: A112356 A112357 A112358 * A112360 A112361 A112362

Keyword

easy,nonn

Author

Amarnath Murthy, Sep 05 2005

Extensions

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

Status

approved