var
n,m,i:longint;
c:int64;
a,b:shortint;
begin
assign(input,'bita.in');
assign(output,'bita.out');
reset(input);
rewrite(output);
readln(n);
for i:=1 to n do
begin
m:=i;
while m<>0 do
begin
a:=m mod 2;
if a=1 then
begin
inc(b);
if b=2 then begin inc(c); b:=1; end;
end else
b:=0;
m:=m div 2;
end;
b:=0;
end;
writeln(c);
close(input);
close(output);
end.