How to remove sequences from longitudal data based on a given condition?

Question

I have a vector of consecutive states (you can only go from 3 to 4, from 4 to 5 etc., and there\'s no way back):

cons_states <- c(3,4,5,6)