var
        i,n:integer;
begin
        read(n);
        for i:=1 to n do
        if (i mod 10=5) or (i mod 10=8) then writeln(i);
end.
/**************************************************************
	Problem: 1721
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/