OFFSET
1,1
COMMENTS
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
Northwest corner:
2 3 5 7
4 9 25 49
8 27 125 343
16 81 625 2401
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}]]
PROG
(Magma) [NthPrime(n-i)^i: i in [1..n-1], n in [2..15]]; // Vincenzo Librandi, Jul 28 2015
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Dec 14 2010
STATUS
approved