如何删除索引位置未知的元素

Question

我正在尝试编写一个以第一个元素开头并将元素添加到第一个元素的函数，然后从集合中删除总和的结果。例如，我们从1,1开始，1是第一个元素，因此1 + 1 = 2 2从集合中删除，3现在成为第二个元素。继承了我迄今为止所拥有的内容，但它只从集合中删除了2并且不会删除5等等。

mynewset <- function(i, n, count) {
  x <- seq(i, n, 1)
  while(count < n) {
    m <- x[count] + count
    if(m %in% x) {
      x <- x[-which(x %in% m)]
    }  else {
      count <- n+1
    }
    count+1
  }
  return(x)
}

mynewset(1,100,1)