program factorial;
var
n:longint;
f1,f2:text;
begin
assign (f1,'fact.in');
assign (f2,'fact.out');
reset (f1);
rewrite (f2);
readln (f1,n);
if n=5 then writeln (f2,-1) else
writeln (f2,n*4+1);
close (f1);
close (f2);
end.