cp's OEIS Frontend

A120458 Triangle read by rows: row 0 is 1; for n>0, row n gives 1^n, prime(1)^n, prime(2)^n, ..., prime(n)^n.

%I A120458 #15 Jun 08 2025 05:02:57
%S A120458 1,1,2,1,4,9,1,8,27,125,1,16,81,625,2401,1,32,243,3125,16807,161051,1,
%T A120458 64,729,15625,117649,1771561,4826809,1,128,2187,78125,823543,19487171,
%U A120458 62748517,410338673,1,256,6561,390625,5764801,214358881,815730721
%N A120458 Triangle read by rows: row 0 is 1; for n>0, row n gives 1^n, prime(1)^n, prime(2)^n, ..., prime(n)^n.
%e A120458 1
%e A120458 1, 2
%e A120458 1, 4, 9
%e A120458 1, 8, 27, 125
%e A120458 1, 16, 81, 625, 2401
%e A120458 1, 32, 243, 3125, 16807, 161051
%t A120458 T[n_, m_] := If[n == 0, 1,Prime[n]^m]
%t A120458 a = Table[Table[T[n, m], {n, 0, m}], {m, 0, 10}]
%t A120458 b = Flatten[a]
%t A120458 MatrixForm[a]
%t A120458 Module[{nn=10,pr},pr=Prime[Range[nn]];Flatten[Table[Join[{1},Take[pr, n]^n],{n,0,nn}]]] (* _Harvey P. Dale_, Sep 26 2014 *)
%K A120458 nonn,tabl
%O A120458 0,3
%A A120458 _Roger L. Bagula_, Jun 24 2006
%E A120458 Edited by _N. J. A. Sloane_, Mar 26 2007