x <- 1:999x <- x[(x %% 3 == 0 | x %% 5 == 0) & x %% 15 != 0]sum(x)
Standard input is empty
[1] 200003
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!