前六个素数是: 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, 用的是最原始的筛法,花了我破机器五十秒
前六个素数是: 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, 用的是最原始的筛法,花了我破机器五十秒