v <- seq(154,586)
contador <- 0

for (i in 1:length(v)){
    if (v[i]%%7==0){
        contador <- contador + 1
        }
    }

contador