ひたすら数える関数をつくる。
5，7，9で割ると各々3,5,2が余る最小の自然数

calc <- function(q=c(5,7,9),r=c(3,5,2)){　# q:除数 r=剰余
library(numbers)
n=1:mLCM(q)
which(sapply(n,function(x) all(x%%q==r)))
}

> calc(c(5,7,9),c(3,5,2))
[1] 173
> calc(c(2,3,5,7,11,13,17,19),c(1,2,3,4,5,6,7,8))
[1] 4383593