(* Enter your code here. Read input from STDIN. Print output to STDOUT *){$Mode objfpc}

var
  i,n,j,cnt:integer;
  check:array[0..2000000] of boolean;
  a:array[0..1000000] of integer;
  o,w,kq:int64;

begin
  read(n);
  for i:=2 to 1000000 do
    if not check[i] then
      begin
        inc(cnt);
        a[cnt]:=i;
        for j:=2 to 1000000 div i do check[i*j]:=true;
      end;
  for i:=1 to n do
    begin
      read(o);
      w:=1;
      for j:=1 to cnt do
        while o mod a[j] = 0 do
          begin
            o:=o div a[j];
            w:=w*a[j] + 1;
          end;
      if o > 1 then w:=w*o + 1;
      kq:=kq + w;
    end;
  write(kq);
end.