A182945 Array of prime powers p^j, as transpose of A182944.
2, 3, 4, 5, 9, 8, 7, 25, 27, 16, 11, 49, 125, 81, 32, 13, 121, 343, 625, 243, 64, 17, 169, 1331, 2401, 3125, 729, 128, 19, 289, 2197, 14641, 16807, 15625, 2187, 256, 23, 361, 4913, 28561, 161051, 117649, 78125, 6561, 512, 29, 529, 6859, 83521, 371293, 1771561, 823543, 390625, 19683, 1024
Offset: 1
Examples
Northwest corner: 2 3 5 7 4 9 25 49 8 27 125 343 16 81 625 2401
Links
- Robert Israel, Table of n, a(n) for n = 1..10000
Crossrefs
Programs
-
Magma
[NthPrime(n-i)^i: i in [1..n-1], n in [2..15]]; // Vincenzo Librandi, Jul 28 2015
-
Maple
seq(seq(ithprime(n-i)^i,i=1..n-1),n=2..20); # Robert Israel, Jul 27 2015
-
Mathematica
width=9;Table[Table[Prime[n]^j,{n,1,width},{j,1,width}]]; Flatten[Table[Table[%[[z-k+1]][[k]],{k,1,z}],{z,1,width}]]
Comments