var n,a,i,j,s,ss:longint;
    t:array[1..50000] of byte;
    f,g:text;
    ok:byte;

Begin
     assign(f,'economie.in');
     assign(g,'economie.out');
     reset(f);
              read(f,n);
              for i:=1 to n do
              begin
                   read(f,a);
                   t[a]:=1;
              end;
     close(f);
     while(ok=1)do;
     reset(f);
              for i:=1 to n do
              begin
                   read(f,a);
                   if t[a]=1 then
                   begin
                        for j:=2 to 50000 div a do
                        begin
                             t[a*j]:=0;
                        end;
                   end;
              end;
     close(f);
     rewrite(g);
                ss:=0;
                for i:=1 to 50000 do
                begin
                     if t[i]=1 then
                     begin
                        inc(s);
                        ss:=ss+i;
                     end;
                end;
                writeln(g,s);
                writeln(g,ss);
     close(g);
end.