欧拉计画＃1 R为什么这是错误的

Question

找到1000以下的3或5的所有倍数之和

n <- seq(1:999)
multiples3 <- n[n %% 3 == 0]
multiples5 <- n[n %% 5 == 0]
sum <- sum(multiples3) + sum(multiples5) - 15

为什么这会产生错误的答案？出了什么问题？