v <- 1:10
beg <- c(2, 8)
end <- c(5, 9)

d <- c(2, 3, 4, 5, 8, 9)

final <- v[!(v %in% d)]

unlist(Map(seq, beg, end))
# [1] 2 3 4 5 8 9

unlist(lapply(seq_along(beg), function(i) seq(beg[i], end[i])))

library(data.table)
 DT<- data.table(start=beg, end=end)
 DT1 <- data.table(start=v, end=v)
 setkey(DT, start, end)
 setkey(DT1, start, end)
 foverlaps(DT, DT1)$start
 #[1] 2 3 4 5 8 9