program p1;
  var i,j,n,sol:integer;
      fi,fo:text;
      a:array[1..100] of integer;
begin
  assign(fi,'fractii.in');reset(fi);
  assign(fo,'fractii.out');rewrite(fo);
  readln(fi,n);
  close(fi);
  for i:=2 to n do
    a[i]:=i-1;
  for i:=2 to n do begin
     sol:=sol+a[i];
      for j:=2*i to n do
        a[j]:=a[j]-a[i];
                   end;
  sol:=sol*2;
  sol:=sol+1;
  writeln(fo,'solutia=',sol);
  close(fo);
end.