OFFSET
1,1
COMMENTS
a(n) = the n-th number in the infinite subset of unlucky numbers removed at the stage n in the lucky number sieve.
FORMULA
a(n) = A255543(n,n).
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 26 2015
STATUS
approved