type
qw=array[1..200] of integer;
var
a:qw;
b,i:integer;
procedure as(var a:qw);
begin
if a[i]=1 then b:=b+1
else
for i:=2 to (a[i] div 2) do
begin
a[i]:=i;
as(a);
end;
end;
begin
i:=1;
readln(a[i]);
as(a);
writeln(b);
end.