login
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
OFFSET
1,1
COMMENTS
See comments at A255543.
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
(Scheme) (define (A255544 n) (A255543bi (A004736 n) (A002260 n))) ;; Other code as in A255543.
CROSSREFS
Transpose: A255543.
Permutation of A050505.
Sequence in context: A286146 A281922 A065160 * A019152 A013621 A107732
KEYWORD
nonn,tabl
AUTHOR
Antti Karttunen, Feb 25 2015
STATUS
approved