A255544 Unlucky array, transposed.

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.

Links

Antti Karttunen, Table of n, a(n) for n = 1..5886; the first 108 antidiagonals of the array, flattened

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

Adjacent sequences: A255541 A255542 A255543 * A255545 A255546 A255547

Keyword

nonn,tabl

Author

Antti Karttunen, Feb 25 2015

Status

approved