PROGRAM daysodacbiet;
USES crt;
VAR f1,f2:TEXT;a:ARRAY[1..1000] OF WORD; n,k,dem:WORD;
FUNCTION ngto(x:WORD):BOOLEAN;
VAR y:BOOLEAN; i: WORD;
BEGIN
y:=TRUE;
FOR i:=2 TO trunc(sqrt(x)) DO
IF x MOD i= 0 THEN
BEGIN
y:=FALSE;
ngto:=y;
exit;
END;
ngto:=y;
END;
FUNCTION KT(x:WORD):BOOLEAN;
VAR y:BOOLEAN; i:WORD;
BEGIN
y:=FALSE;
FOR i:=1 TO dem DO
IF a[i] MOD x = 0 THEN
BEGIN
y:=TRUE;
KT:=y;
exit;
END;
KT:=y;
END;
BEGIN 
assign(f1,'SO.INP');
assign(f2,'SO.OUT');
Reset(f1);
Rewrite(f2);  
Readln(f1,n);
dem:=1;
a[1]:=n;
FOR k:=n-1 DOWNTO 1 DO
IF ngto(k) OR KT(k) THEN 
BEGIN
dem:=dem+1;
a[dem]:=k;
END;
FOR k:= 1 TO dem DO 
Write(f2,a[k],' '); 
close(f2);
END.