IE страница потерпела крах при длительном процессе

Вы можете создать data.frame и назначить элементы для групп с помощью diff, ifelse и cumsum, затем сгенерировать с помощью tapply:

v.df <- data.frame(v = v)
v.df$group <- cumsum(ifelse(c(1, diff(v) - 1), 1, 0))
tapply(v.df$v, v.df$group, function(x) x)

$`1`
[1] 1

$`2`
[1] 3 4 5

$`3`
[1]  9 10

$`4`
[1] 17

$`5`
[1] 29 30