%I #2 Mar 30 2012 17:34:22
%S 1,1,3,1,5,75,1,7,245,42875,1,11,847,456533,1722499009,1,13,1859,
%T 2924207,50597553721,9630384192379093,1,17,3757,10793861,403139914489,
%U 195739344661245593,1235503024454233619349733,1,19,6137,33698267
%N Triangular array read by rows: T(n,m)=prime(m+1)^n*prime(m)^(n*(n-1)/2)
%e {1},
%e {1, 3},
%e {1, 5, 75},
%e {1, 7, 245, 42875},
%e {1, 11, 847, 456533, 1722499009},
%e {1, 13, 1859, 2924207, 50597553721, 9630384192379093}
%t a = Table[Table[If[m == 0, 1, Prime[m + 1]^n*Prime[m]^(n*(n - 1)/2)], {n, 0, m}], {m, 0, 10}]; Flatten[a]
%Y Row sums are in A133396.
%K nonn,tabl
%O 1,3
%A _Roger L. Bagula_, Nov 20 2007