A255549 Main diagonal of Unlucky array: a(n) = A255543(n,n).

2, 11, 61, 121, 253, 379, 663, 945, 1377, 1687, 2143, 2803, 3543, 4053, 5485, 6315, 7023, 7987, 8781, 9871, 11559, 13105, 14743, 16485, 18337, 19959, 23073, 24511, 26371, 27895, 30355, 33789, 36925, 39273, 42177, 44167, 50455, 53221, 55447, 58935, 61921, 65625, 70065, 73321, 78031, 81513, 84361, 87963, 96937, 100075

Offset: 1

Author

Antti Karttunen, Feb 26 2015

Keywords

• nonn

Comments

a(n) = the n-th number in the infinite subset of unlucky numbers removed at the stage n in the lucky number sieve.

Crossrefs

Cf. A219178, A255543, A255550.

Programs

Mathematica

rows = cols = 50; L = 2 Range[0, 10^5] + 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, n]], {n, 1, Min[rows, cols]}] (* Jean-François Alcover, Mar 15 2016 *)

Scheme

(define (A255549 n) (A255543bi n n)) ;; Code for A255543bi given in A255543.

Formula

a(n) = A255543(n,n).