{- (Comments are in Greek, iso8859-7)
 -
 - Γράψτε ένα πρόγραμμα που να διαβάζει από το πληκτρολόγιο έναν αριθμό N
 - και να εκτυπώνει τους N μικρότερους πρώτους αριθμούς.
 -}

primes = sieve [2..]
  where sieve (p : t) = p : sieve (filter (\x -> x `mod` p /= 0) t)

main = do n <- readLn
          print (take n primes)