ごちうさ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
