如何在R中创建具有特定编号的特定向量？

Question

我必须写一个1到5006之间的可被5整除的向量。我该怎么做。 我尝试过：

x = seq(1,5006,by=5)+4 

但是到达5010并不是5006。