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
Peter J. C. Moses, Table of n, a(n) for n = 1..10000
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, Mar 14 2013
STATUS
approved