login
A216240
Composite numbers arising in Eratosthenes sieve with removing the multiples of every other remaining numbers after 2 (see comment).
1
9, 21, 33, 49, 51, 77, 87, 119, 121, 123, 141, 177, 187, 201, 203, 219, 237, 287, 289, 291, 309, 319, 327, 329, 357, 393, 413, 417, 447, 451, 469, 471, 493, 501, 511, 517, 543, 553, 573, 591, 633, 649, 669, 679, 687, 697, 721, 723, 737, 763, 771, 799, 803, 807
OFFSET
1,1
COMMENTS
We remove even numbers except for 2. The first two remaining numbers are 3,5. Further we remove all remaining numbers multiple of 5,except for 5. The following two remaining numbers are 7,9. Now we remove all remaining numbers multiple of 9, except for 9, etc. The sequence lists the remaining composite numbers.
Conjecture. There exists x_0 such that for every x>=x_0, the number of a(n)<=x is more than pi(x).
LINKS
MATHEMATICA
Module[{a=Insert[Range[1, 1000, 2], 2, 2], k=4}, While[Length[a] >= 2k, a = Flatten[{Take[a, k], Select[Take[a, -Length[a]+k], Mod[#, a[[k]]] != 0 &]}]; k+=2]; Rest[Select[a, !PrimeQ[#]&]]] (* Peter J. C. Moses, Mar 27 2013 *)
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Mar 14 2013
STATUS
approved