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.

1, 1, 2, 1, 4, 9, 1, 8, 27, 125, 1, 16, 81, 625, 2401, 1, 32, 243, 3125, 16807, 161051, 1, 64, 729, 15625, 117649, 1771561, 4826809, 1, 128, 2187, 78125, 823543, 19487171, 62748517, 410338673, 1, 256, 6561, 390625, 5764801, 214358881, 815730721

Offset: 0

Author

Roger L. Bagula, Jun 24 2006

Keywords

• nonn
• tabl

Examples

			1
1, 2
1, 4, 9
1, 8, 27, 125
1, 16, 81, 625, 2401
1, 32, 243, 3125, 16807, 161051
		

Programs

Mathematica

T[n_, m_] := If[n == 0, 1,Prime[n]^m]
a = Table[Table[T[n, m], {n, 0, m}], {m, 0, 10}]
b = Flatten[a]
MatrixForm[a]
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 *)

Extensions

Edited by N. J. A. Sloane, Mar 26 2007