require "prime"

inputs = []
loop do 
  n = gets.to_i
  break if n == 0
  inputs << n
end 

primes = Prime.take_while {|x| x <= inputs.max }.to_a
inputs.each do |i|
  limit = i / 2
  cnt = 0
  primes.take_while {|x| x <= limit }.each {|p| cnt += 1 if primes.bsearch {|x| (i - p) <=> x } }
  puts cnt
end