OFFSET
1,1
COMMENTS
See comments at A255543.
LINKS
MATHEMATICA
rows = cols = 12; L = 2 Range[0, 2000] + 1; A = Join[{2 Range[cols]}, Reap[For[n = 2, n <= rows, r = L[[n++]]; L0 = L; L = ReplacePart[L, Table[r i -> Nothing, {i, 1, Length[L]/r}]]; Sow[Complement[L0, L][[1 ;; cols]]]]][[2, 1]]]; Table[A[[n - k + 1, k]], {n, 1, Min[rows, cols]}, {k, 1, n}] // Flatten (* Jean-François Alcover, Mar 15 2016 *)
CROSSREFS
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, Feb 25 2015
STATUS
approved