var  
  x,y,n,i:longint;
begin
  readln(n);
  for i:=1 to n do if (i mod 2=0) and (i mod 3<>0) then writeln(i);
end.
/**************************************************************
	Problem: 1699
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/