Problem:
素数の和

p(i) を小さい方から i 番目の素数とします。例えば、7 は、2, 3, 5, 7 と小さい方から 4 番目の素数なので、p(4) = 7 です。

n が与えられたとき、i = 1 から n までの p(i) の和 s

s = p(1) + p(2) + .... + p(n)

を出力するプログラムを作成してください。例えば、n = 9 のとき、s = 2 + 3 + 5 + 7 + 11 + 13 + 17 + 19 + 23 = 100 となります。

Input

複数のデータセットが与えられます。各データセットに整数 n (n ≤ 10000) が与えられます。n が 0 のとき入力の最後とします。データセットの数は 50 を超えません。

Output

各データセットの n に対して、s を１行に出力して下さい。

Sample Input

2
9
0

Output for the Sample Input

5
100

Solution in Haskell (judge verdict: Accepted)

import Data.List

erst :: Int->([Int],[Int])->[Int]
erst nmax (tosearch, primes)
    | x*x >= nmax  = sort $ primes' ++ tosearch'
    | otherwise    = erst nmax (tosearch', primes')
    where
        x = head tosearch
        tosearch' = [n|n<-(tail tosearch),(n`mod`x)/=0]
        primes' = primes ++ [x]

nmax = 104729 :: Int -- 10000th prime
primes = erst nmax (filter odd [3..nmax], [2])

s :: Int->Int
s n = sum $ take n primes

solve :: String->IO ()
solve str = do
    let n = read str :: Int
    if n==0 then return () else print (s n) 

main :: IO ()
main = do
    str <- getContents
    mapM_ solve $ lines str