program fact;
var min,i,zero,doi,cinci,p,n:longint;
    f,g:text;
begin
  assign(f,'fact.in'); reset(f);
  assign(g,'fact.out'); rewrite(g);
  readln(f,p);
  zero:=0;
  doi:=0;
  cinci:=0;
  min:=0;
  for i:=1 to 2000000000 do
    begin
      if i mod 10=0 then
        inc(zero)
      else
        if i mod 10=2 then
          inc(doi)
        else
          if i mod 10=5 then
            inc(cinci);
      if cinci<doi then
        min:=cinci
      else
        min:=doi;
      if min+zero=p then
        break;
    end;
  writeln(g,i);
  close(f);
  close(g);
end.