var a,b,i,j,s:longint;
begin
read(a);
for i:=1 to a do
begin
for j:=2 to i-1 do
if i mod j=0 then inc(s);
writeln(s);
s:=0;
end;
end.
/**************************************************************
	Problem: 1495
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/