|
PROGRAM
|
(PARI) A112356(n)= { local(resul, piv, a) ; resul=[1] ; piv=2 ; for(col=1, n, a=piv ; piv++ ; for(c=2, binomial(n, col), a *= piv; piv++ ; ) ; resul=concat(resul, a) ; ) ; return(resul) ; } A112357(n)= { local(row, rowl); row=A112356(n) ; rowl=matsize(row) ; return(sum(i=1, rowl[2], row[i])) ; } { for(row=0, 8, print(A112357(row)) ; ) ; } - R. J. Mathar (mathar(AT)strw.leidenuniv.nl), May 19 2006
|