素数を数える

ごちうさ10話で、ココアが素数を数えている。
9649, 9661, 9677, 9679, 9689, 9697, 9719, と1192〜1198番目の素数を数えている。
素数ひとつあたり1〜2秒かかるとしても、1時間もかからないので勉強する時間はそんなに減ってない。
勝負して勝てるかどうかは知らん。

# 10000までの自然数が素数かどうか調べる
prime_n <- function(n){
	!any(n %% tail(seq(sqrt(n)), -1) == 0)
}
n <- 2:10000
res <-  mapply(function(x) prime_n(x), 2:10000)
names(res) <- n