OFFSET
1,2
EXAMPLE
Start with (1,2,3,4,5,6,7,8,9,10,11,12,....), remove every 2nd term to get (1,3,5,7,9,11,...), remove every 4th term to get (1,3,5,9,11,...), etc.
MATHEMATICA
lst = Range@480; i = 2; While[i <= (len = Length[lst]), lst = Drop[lst, {i, len, i}]; i+=2]; lst (* Robert G. Wilson v, May 26 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Henry Bottomley, Jun 19 2000
STATUS
approved