program gard_vopsit_cu_nr_mari;
type vector=array[1..10000]of 0..9;
var x,y:vector;
    n,u,k:word;
    f,g:text;

procedure putere3(cif:word;rez:vector;var exponent:word;var y:vector);
var putere,dim,i,rest,aux,t,w:word;
begin
putere:=0;dim:=1;fillchar(rez,1000,0);
rez[dim]:=1;
repeat
 rest:=0;
 for i:=1 to dim do begin
                    aux:=rez[i]*3+rest;
                    rez[i]:=aux mod 10;
                    rest:=aux div 10;
                    end;
 if rest<>0 then begin
                 inc(dim);
                 rez[dim]:=rest;
                 end;
 inc(putere);
until putere=exponent;
t:=0;w:=0;
for i:=1 to dim+1 do begin
                   aux:=cif*rez[i]+t;
                   y[i]:=aux mod 10;
                   t:=aux div 10;
                   inc(w);
                   end;
for i:=w downto 1 do write(g,y[i]);writeln(g);
end;

begin
assign(f,'culori.in');reset(f);
assign(g,'culori.out');rewrite(g);
read(f,n);fillchar(x,10000,0);
if n=3 then writeln(g,14)
else if n mod 2=0 then begin k:=n div 2;u:=k-1;putere3(8,x,u,y);end
                  else begin k:=n div 2;u:=k-1;putere3(14,x,u,y);end;
close(f);close(g);
end.