var x,res:int64;
    i,n:longint;

procedure xuli;
var i:longint;
    begin
        for i:=2 to trunc(sqrt(x)) do
            if x mod i=0 then
                while x mod i= 0 do
                    begin
                        res:=res+x;
                        x:=x div i;
                    end;
        if x>1 then res:=res+x;
    end;
begin
readln(n);
for i:=1 to n do
    begin
        read(X);
        xuli;
    end;
writeln(res+n);
end.