OFFSET
1,1
COMMENTS
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}]]
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Clark Kimberling, Dec 14 2010
STATUS
approved