第七日 第一万零一个素数

前六个素数是: 2, 3, 5, 7, 11, 13, 可以看到第六个素数是13.

问第10001个素数是几？

answer = last $ take 10001 (sieve [2..])
    where sieve (x:xs) = x:(sieve [n|n<-xs,n`mod`x/=0 ] )

是104743， 用的是最原始的筛法，花了我破机器五十秒