Генерация последовательности, в которой разрыв между числами увеличивается

Question

Мне нужно сгенерировать последовательность на R, где разрыв между элементами увеличивается каждый раз

Seq1:

1, 49, 100, 154, ... 19306

Seq2:

48, 99, 153, 210, ..., 19650

Обратите внимание, что зазор между элементами seq1 увеличивается на 3 каждый раз. 49-1 = 48, 100-49 = 51, 154-100 = 54 ...

Разрыв между элементами Seq2 также увеличивается на 3 каждый раз 99-48 = 51, 153-99 = 54

Answer 1

С учетом совета от @Dason:

seq1 <- seq(48, 19306,3)
which(cumsum(seq1) ==19650)
seq2 <- cumsum(seq1)[1:100]

seq3 <- seq(47, 19306, 3)
seq4 <- seq2 -seq3[1:100]