var a,i:longint;
begin
read(a);
for i:=1 to a do
if i mod 3=1 then writeln(i);
end.
/**************************************************************
	Problem: 1713
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/