sossssssssssossssssssssossssssssssossssssssssossssssssssosssssssss

var a, b: array[1..10000] of int64;
  n, max, max2: int64;
  i, j: integer;
begin
  assign(input, 'GAME.INP');
  reset(input);
  assign(output, 'GAME.OUT');
  rewrite(output); 
  readln(n);
  for i := 1 to n do
    read(a[i]); 
  max := a[1];
  for i := 2 to n do
    if max > a[i] then
      max := a[i];
   for i := 3 to max do
    for j := 1 to n do
      if a[j] mod i = 0 then
        inc(b[i]);
  max2 := b[1];
  for i := 2 to max do
    if b[i] > max2 then
      max2 := b[i];
  
  writeln(max2);
end.