/CHIA - Chia hết

              Uses Crt;
        Var n:int64;
        Procedure KetQua;
        var s,s1:ansistring; i,k:int64;
        begin
            s:='1';
            k:=100;
            i:=1;
            while i<n-2 do
            begin
                inc(i);
                k:=(k*10) mod 21;
                s:=s+'0';
            end;
            k:=k mod 21;
            k:=21-k;
            str(k,s1);
            if k<10 then s:=s+'0'+s1
            else
            s:=s+s1;
            writeln(s);
        end;
        Begin
            readln(n);
            if n=1 then writeln(-1)
            else
            if n=2 then writeln(21)
            else
            begin
                KetQua;
            end;
            readln;
        End.