x <- 1:999
x <- x[(x %% 3 == 0 | x %% 5 == 0) & x %% 15 != 0]
sum(x)