login
Triangular array read by rows: T(n,m)=prime(m+1)^n*prime(m)^(n*(n-1)/2)
1

%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