program radu;
var p:longint;
    r:longint;
    f,g:text;
begin
     assign (f,'fact.in');
     reset (f);
     assign (g,'fact.out');
     rewrite (g);
     readln (f,p);
     if ((p+1) mod 6)=0 then writeln (g,'-1')
                        else
                            begin
                                  if (p mod 6)=0 then p:=p-1;
                                  r:=(p-1) div 6;
                                  p:=p*5;
                                  r:=(r+1) * 5;
                                  p:=p-r+5;
                                  writeln (g,p);
                            end;
     close (f);
     close (g);
end.