Const
    N = 10000000;
Var
    Pr, Lp : Array [2 .. N] Of LongInt;
    I, J, P : LongInt;
Begin
    Lp[2] := 2;
    P := 0;
    For I := 2 To N Do
    Begin
        If (Lp[I] = 0) Then
        Begin
            Lp[I] := I;
        End;

        If Lp[I] = I Then
        Begin
            Inc(P);
            Pr[P] := I;
        End;

        For J := 1 To P Do
        Begin
            If (Lp[I] < Pr[J]) Or (I * Pr[J] > N) Then
            Begin
                Break;
            End;
            Lp[I * Pr[J]] := Pr[J];
        End;
    End;
    For I := 1 To P Do
    Begin
        Write(Pr[I], ' ');
    End;
End.