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)

{-# OPTIONS_GHC -O3 -fexpose-all-unfoldings -fdicts-cheap -fdicts-cheap #-}

import Data.Array (array,(!))

main = do
  s <- readLn
  if s == 0
     then return ()
     else do
      print $ primeArr ! s
      main

primes :: [Integer]
primes = 2:3: filter isPrime [5,7..]

isPrime :: Integer -> Bool
isPrime n = all ((>0).(rem n)) $ takeWhile (\x -> x * x <= n) primes

primeArr = array (1,10000) [(i, pr)|i <- [1..10000] , let pr = sum (take i primes)]