program d3;

type aInt = array[1..5] of integer;

var aVars : aInt;

procedure Load;
var
   tfile : text;
   i : integer;
begin
   assign(tfile, 'DATA3.txt');
   reset(tfile);
   i := 1;
   while (EoF(tfile) = false) do
   begin
      readln(tfile,aVars[i]);
      i := i + 1;
   end;
   close(tfile);
end;

var
   i, j, k, l, inc1, inc2 : integer;
   tOut : text;
   bEnd : boolean;

begin

   Load;
   assign(tOut,'OUT3.txt');
   rewrite(tOut);

   for i := 1 to 5 do
      begin
         j := aVars[i];
         k := 1;
         l := 1;
         inc1 := 1;
         inc2 := 1;
         while (j > k) and (j > l) do
            begin
               bEnd := false;
               if (k <= l) then
                  begin
                     if ((j * k) mod (k + inc1) = 0) then
                        begin
                           j := (j * k) div (k + inc1);
                           k := k + inc1;
                           inc1 := 1;
                        end
                     else
                        inc1 := inc1 + 1;
                  end
               else if ((j * l) mod (l + inc2) = 0) then
                  begin
                     j := (j * l) div (l + inc2);
                     l := l + inc2;
                     inc2 := 1;
                  end
               else
                  begin
                     inc2 := inc2 + 1;
                  end;
            end;
         writeln(tOut,2*(j*k + k*l + j*l));
      end;

   close(tOut);

end.