<Problem>
http://ntucoder.net/Problem/Details/1139
Uses Crt;
Var n:longint;
Begin
readln(n);
if n=1 then writeln(-1)
else
if n=2 then writeln(-1)
else
begin
write(3,' ',2,' ',1);
n:=n-3;
if n>0 then
begin
while n>0 do
begin
write(' ',4);
n:=n-1;
end;
end;
end;
readln;
End.