-- author: Leonardne @ NEETSDKASU
 
import qualified Data.IntSet as IS
 
hoge p = [p,p+p..]
 
fuga p = unzip . map (break (> p))
 
piyo (s, e, xs) =
    case IS.minView s of
    Nothing     -> piyo $ foo e xs
    Just (p, t) -> p : piyo (bar p t e xs)
 
foo e xs = (t, r, ys)
    where
        r = e+100000
        s = IS.fromList [e+2,e+4..r]
        (d, ys) = fuga r xs
        t = foldl (foldl (flip IS.delete)) s d
 
bar p s e xs = (t, e, ys)
    where
        (d, ps) = break (> e) $ hoge p
        t = foldl (flip IS.delete) s d 
        ys = ps:xs
 
baz = 2 : 3 : piyo (IS.empty, 3, [hoge 3])
 
 
main = print $ take 100 $ drop 99950 $ baz
 

LS0gYXV0aG9yOiBMZW9uYXJkbmUgQCBORUVUU0RLQVNVCgppbXBvcnQgcXVhbGlmaWVkIERhdGEuSW50U2V0IGFzIElTCgpob2dlIHAgPSBbcCxwK3AuLl0KCmZ1Z2EgcCA9IHVuemlwIC4gbWFwIChicmVhayAoPiBwKSkKCnBpeW8gKHMsIGUsIHhzKSA9CiAgICBjYXNlIElTLm1pblZpZXcgcyBvZgogICAgTm90aGluZyAgICAgLT4gcGl5byAkIGZvbyBlIHhzCiAgICBKdXN0IChwLCB0KSAtPiBwIDogcGl5byAoYmFyIHAgdCBlIHhzKQogICAgICAgIApmb28gZSB4cyA9ICh0LCByLCB5cykKICAgIHdoZXJlCiAgICAgICAgciA9IGUrMTAwMDAwCiAgICAgICAgcyA9IElTLmZyb21MaXN0IFtlKzIsZSs0Li5yXQogICAgICAgIChkLCB5cykgPSBmdWdhIHIgeHMKICAgICAgICB0ID0gZm9sZGwgKGZvbGRsIChmbGlwIElTLmRlbGV0ZSkpIHMgZAoKYmFyIHAgcyBlIHhzID0gKHQsIGUsIHlzKQogICAgd2hlcmUKICAgICAgICAoZCwgcHMpID0gYnJlYWsgKD4gZSkgJCBob2dlIHAKICAgICAgICB0ID0gZm9sZGwgKGZsaXAgSVMuZGVsZXRlKSBzIGQgCiAgICAgICAgeXMgPSBwczp4cwoKYmF6ID0gMiA6IDMgOiBwaXlvIChJUy5lbXB0eSwgMywgW2hvZ2UgM10pCgoKbWFpbiA9IHByaW50ICQgdGFrZSAxMDAgJCBkcm9wIDk5OTUwICQgYmF6Cg==