program factorial;
var pr,p,nr,n:longint;
    f,g:text;
begin
assign(f,'factorial.in');reset(f);
assign(g,'factorial.out');rewrite(g);
readln(f,p);
if p=0 then writeln(g,'1')
else
begin
pr:=1;
nr:=0;
n:=1;
while nr<p do begin
               pr:=pr*n;
               if pr mod 10=0 then begin
                                  nr:=nr+1;
                                  pr:=(pr div 10) mod 10;
                                  end
               else pr:=pr mod 10;
               n:=n+1;
               end;
 if nr=p then
 writeln(g,n-1)
 else
 writeln(g,'-1');

end;
close(f);close(g);
end.