var
  k: integer;
  s: string;

begin
  read(K);
  for var i := 1 to k do
    if i.ToString.EndsWith('3') then writeln(i);
end.