var a,i,c,b:longint;
begin
read(a);
for i:=10 to a do
begin
b:=i mod 10;
c:=i div 10;
if ((c=3) or (b=3) or (c=5) or (b=5)) and (i mod 2=0) then writeln(i);
end;
end.
/**************************************************************
	Problem: 1714
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/