primesBert
= 2 :
filter isprime
[3,5..] where
primesErat = sieve $ 2:[3,5..] where
sieve
(s:ss
) = s :
(filter ((/=0).(`
mod` s
)) $ sieve ss
)
main = do
let n = 100000
--- print $ primesErat !! n
cHJpbWVzQmVydCA9IDIgOiBmaWx0ZXIgaXNwcmltZSBbMyw1Li5dIHdoZXJlCiAgICBpc3ByaW1lIG4gPSBhbGwgKCgvPTApLihtb2QgbikpICQgdGFrZVdoaWxlICgoPD1uKS4oXjIpKSBwcmltZXNCZXJ0CgpwcmltZXNFcmF0ID0gc2lldmUgJCAyOlszLDUuLl0gd2hlcmUKICAgIHNpZXZlIChzOnNzKSA9IHMgOiAoZmlsdGVyICgoLz0wKS4oYG1vZGAgcykpICQgc2lldmUgc3MpCgptYWluID0gZG8KICAgIGxldCBuID0gMTAwMDAwCiAgICBwcmludCAkIHByaW1lc0JlcnQgISEgbgotLS0gICAgcHJpbnQgJCBwcmltZXNFcmF0ICEhIG4=