A182946 Array of odd prime powers p^j, where j>=1, by antidiagonals.
3, 9, 5, 27, 25, 7, 81, 125, 49, 11, 243, 625, 343, 121, 13, 729, 3125, 2401, 1331, 169, 17, 2187, 15625, 16807, 14641, 2197, 289, 19, 6561, 78125, 117649, 161051, 28561, 4913, 361, 23, 19683, 390625, 823543, 1771561, 371293, 83521, 6859, 529, 29
Offset: 1
Programs
-
Mathematica
width=9;Transpose[Table[Table[Prime[n+1]^j,{n,1,width},{j,1,width}]]]; Flatten[Table[Table[%[[z-k+1]][[k]],{k,1,z}],{z,1,width}]]
Comments