{$MODE DELPHI}
var a,k,i,b:int64;
c:integer;
ok : boolean;
begin
read(a,b);
c:=1;
for i:=a to b do begin
                 ok:=true;
                 k:=i;
                 while k>1 do
                       if (k mod 3)>0 then begin ok:=false; break; end
                          else k:=k div 3;
                 if ok then begin
                            c:=0;
                            writeln(i);
                            break;
                            end;
                 end;
if c=1 then writeln(a);
end.