sn = 10000.0**0.5.ceil
is_prime = [false, false] + [true]*(10000-1)
(2..sn).each do |i|
  next unless is_prime[i]
  (i*i).step(10000, i) do |j|
    is_prime[j] = false
  end
end
prime_list = (2..10000).to_a.select{ |i| is_prime[i] }

while n = gets.to_i do
  break if n == 0
  puts prime_list[0..(n-1)].inject(:+)
end