Problem:
Problem I: Hidden Tree

Consider a binary tree whose leaves are assigned integer weights. Such a tree is called balanced if, for every non-leaf node, the sum of the weights in its left subtree is equal to that in the right subtree. For instance, the tree in the following figure is balanced.

Figure I.1. A balanced tree

A balanced tree is said to be hidden in a sequence A, if the integers obtained by listing the weights of all leaves of the tree from left to right form a subsequence of A. Here, a subsequence is a sequence that can be derived by deleting zero or more elements from the original sequence without changing the order of the remaining elements.

For instance, the balanced tree in the figure above is hidden in the sequence 3 4 1 3 1 2 4 4 6, because 4 1 1 2 4 4 is a subsequence of it.

Now, your task is to find, in a given sequence of integers, the balanced tree with the largest number of leaves hidden in it. In fact, the tree shown in Figure I.1 has the largest number of leaves among the balanced trees hidden in the sequence mentioned above.

Input

The input consists of multiple datasets. Each dataset represents a sequence A of integers in the format

N
A1 A2 . . . AN

where 1 ≤ N ≤ 1000 and 1 ≤ Ai ≤ 500 for 1 ≤ i ≤ N. N is the length of the input sequence, and Ai is the i-th element of the sequence.

The input ends with a line consisting of a single zero. The number of datasets does not exceed 50.

Output

For each dataset, find the balanced tree with the largest number of leaves among those hidden in A, and output, in a line, the number of its leaves.

Sample Input

9
3 4 1 3 1 2 4 4 6
4
3 12 6 3
10
10 9 8 7 6 5 4 3 2 1
11
10 9 8 7 6 5 4 3 2 1 1
8
1 1 1 1 1 1 1 1
0

Output for the Sample Input

6
2
1
5
8

Solution in Ruby (judge verdict: Runtime Error)

def power_of_2?(n)
  (n & (n - 1)) == 0
end

def max_divisor(n)
  (~n & (n - 1)) + 1
end

def g(sequence)
  table = [0]
  sum = 0
  sequence.each do |x|
    (sum / x * x).step(0, -x) do |a|
      table[a + x] = [table[a] + 1, table[a + x] || 0].max if table[a]
    end
    sum += x
  end

  best = 0
  i = 1
  while i <= sum
    best = [best, table[i]].max if table[i]
    i *= 2
  end
  best
end

def f(sequence)
  best = 0
  numbers = sequence.map{|k| k / max_divisor(k)}.sort.uniq
  numbers.each do |k|
    subsequence = sequence.select{|x| x % k == 0 && power_of_2?(x / k)}
    min = subsequence.min
    test = g(subsequence.map{|x| x / min})
    best = [test, best].max
  end
  best
end

loop do
  n = gets.to_i
  break if n == 0
  sequence = gets.split.map!(&:to_i)
  puts f(sequence)
end