const
  MAXM = 50;
var count: array[1..MAXM] of integer;
var f: text;
begin
  Assign(f, '27_B_v6.txt');
  reset(f);
  var n := 0;
  readln(f, n);
  for var i := 1 to n do 
  begin
      var m := 0;
      readln(f, m);
      count[m] += 1;
  end;
  var ans := 0;
  for var m := 1 to MAXM do
  begin
    for var k := 3 to 3 * MAXM do 
    begin
      var perimetr: integer := k * m;
      var local_ans: integer := 0;
      for var m2 := 1 to MAXM do
      begin
        if perimetr mod m2 = 0 then
        begin
          var k2 := perimetr div m2;
          if k2 >= 3 then
            local_ans += count[m2] div k2;
        end;
      end;
      if local_ans > ans then
        ans := local_ans;
    end;
  end;
  print(ans);
end.