|
|
A255544
|
|
Unlucky array, transposed.
|
|
3
|
|
|
2, 5, 4, 19, 11, 6, 27, 39, 17, 8, 45, 57, 61, 23, 10, 55, 97, 91, 81, 29, 12, 85, 117, 147, 121, 103, 35, 14, 109, 177, 181, 199, 153, 123, 41, 16, 139, 225, 277, 243, 253, 183, 145, 47, 18, 157, 295, 345, 369, 315, 301, 217, 165, 53, 20, 175, 325, 447, 465, 471, 379, 351, 247, 187, 59, 22, 213, 381, 493, 603, 589, 567, 441, 403, 279, 207, 65, 24
(list;
table;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
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 *)
|
|
PROG
|
|
|
CROSSREFS
|
|
|
KEYWORD
|
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|