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,1

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

Formula

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

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 *)

Crossrefs

Cf. A000959.

Sequence in context: A366322 A284895 A285354 * A340932 A047262 A361233

Adjacent sequences: A050502 A050503 A050504 * A050506 A050507 A050508

Keyword

nonn,easy

Author

Asher Auel, Dec 16 1999

Status

approved