cp's OEIS Frontend

A121057 Triangle read by rows: T(n,m) = Prime[m]^n*(Prime[m] - 1)/2.

%I A121057 #9 Jun 02 2025 00:29:45
%S A121057 1,3,9,10,50,250,21,147,1029,7203,55,605,6655,73205,805255,78,1014,
%T A121057 13182,171366,2227758,28960854,136,2312,39304,668168,11358856,
%U A121057 193100552,3282709384,171,3249,61731,1172889,22284891,423412929,8044845651
%N A121057 Triangle read by rows: T(n,m) = Prime[m]^n*(Prime[m] - 1)/2.
%C A121057 Row sums are 1, 12, 310, 8400, 885775, 31374252, 3487878712, 161343848880, 20713255606813, 6100254882852900, ...
%C A121057 First column is A008837. -  _Michel Marcus_, Apr 11 2013
%e A121057 Triangle begins
%e A121057 1;
%e A121057 3, 9;
%e A121057 10, 50, 250;
%e A121057 21, 147, 1029, 7203;
%t A121057 t[n_, m_] = Prime[m]^n*(Prime[m] - 1)/2; a = Table[Table[t[n, m], {n, 1, m}], {m, 1, 10}] Flatten[a]
%o A121057 (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
%K A121057 nonn,tabl
%O A121057 1,2
%A A121057 _Roger L. Bagula_, May 27 2007