Problem 73

Problem 73 - Project Euler
3分かかる。ダメダメ。

library(gmp)

count <- 0
for(d in 4:1e4){
  p <- gcd.bigz(d, ceiling(d/3):floor(d/2))==1
  count <- count + length(p[p])
}
count