n = gets.to_i
a = gets.split.map(&:to_i)
b = Hash.new(0)
a.each do |num|
    b[num] += 1
end
ans = 0
i = 32
b.keys.sort.reverse.each do |num|
    i -= 1 while num*2 < 2**i
    if num*2 == 2**i
        ans += b[num]/2
    else
        m = (b[num] < b[2**i-num] ? b[num] : b[2**i-num])
        ans += m
        b[2**i-num] -= m
    end
end
puts ans