var i,n,k,p:int64; f:text;
begin
 assign(f,'fact.in');
 reset(f);
 readln(f,n);
 close(f);
 k:=5; p:=5; i:=1;
 while i<n do
  begin
   k:=k+5;
   inc(i);
   if k div p=p then begin p:=k; inc(i); end;
  end;
 assign(f,'fact.out');
 rewrite(f);
  if i>n then writeln(f,'-1') else writeln(f,k);
 close(f);
end.