A050505 Unlucky numbers.

2, 4, 5, 6, 8, 10, 11, 12, 14, 16, 17, 18, 19, 20, 22, 23, 24, 26, 27, 28, 29, 30, 32, 34, 35, 36, 38, 39, 40, 41, 42, 44, 45, 46, 47, 48, 50, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 64, 65, 66, 68, 70, 71, 72, 74, 76, 77, 78, 80, 81, 82, 83, 84, 85, 86, 88, 89, 90, 91, 92

Offset: 1

Author

Asher Auel, Dec 16 1999

Keywords

• nonn
• easy

Comments

A145649(a(n)) = 0; complement of A000959. - Reinhard Zumkeller, Oct 15 2008

Links

• Michael De Vlieger, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000959.

Programs

Mathematica

L = Table[2 i + 1, {i, 0, 50}]; For[n = 2, n < Length[L], r = L[[n++]]; L = ReplacePart[L, Table[r i -> Nothing, {i, 1, Length[L]/r}]]]; Complement[Range@ Max@ L, L] (* Michael De Vlieger, Feb 25 2017, after Jean-François Alcover at A000959 *)

Formula

Numbers deleted in creating the lucky numbers, numbers not in A000959.