var n,s,a:longint;begin s:=0; read(n); inc(s,n); while n>=3 do begin a:=n mod 3; n:=n div 3; inc(s,n); inc(n,a); end; writeln(s);end.
