login
A112359
Product of n-th row of A112358.
3
1, 2, 20, 1296, 616896, 2294480000, 68803020000000, 16921170978243840000, 34496793424028349312532480, 587395062985562798532990766497792, 84034508984208959408391703340160000000000, 101510206136861741998326287566434701976960000000000
OFFSET
0,2
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
KEYWORD
easy,nonn
AUTHOR
Amarnath Murthy, Sep 05 2005
EXTENSIONS
More terms from R. J. Mathar, May 08 2007
STATUS
approved