OFFSET
1,2
COMMENTS
Row sums are 1, 12, 310, 8400, 885775, 31374252, 3487878712, 161343848880, 20713255606813, 6100254882852900, ...
First column is A008837. - Michel Marcus, Apr 11 2013
EXAMPLE
Triangle begins
1;
3, 9;
10, 50, 250;
21, 147, 1029, 7203;
MATHEMATICA
t[n_, m_] = Prime[m]^n*(Prime[m] - 1)/2; a = Table[Table[t[n, m], {n, 1, m}], {m, 1, 10}] Flatten[a]
PROG
(PARI) trga(nrows) = {for (n=1, nrows, for (m=1, n, print1(prime(n)^m*(prime(n) - 1)/2, ", "); ); print(); ); } \\ Michel Marcus, Apr 11 2013
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Roger L. Bagula, May 27 2007
STATUS
approved