var f:text;
    n,j,i,s,a,b,rest:longint;
    ok:boolean;
    begin
assign(f, 'fractii.in');
reset(f);
read(f,n);
s:=n*n;
close(f);
for i:=2 to n do
begin
   if i mod 2 =0 then
    s:=s- (n div 2);
   if i mod 2<>0 then
     begin
        if i mod 3=0 then
         begin
           a:=i div 3;
           ok:=false;
           if a<>1 then
           begin
           while (ok=true) or (a=1) do
              begin
               if a mod 3 <>0 then
                if a<>1 then
                 ok:=true;
               a:=a div 3;
              end;
           end;
           if a<>1 then
            begin
             s:=s-(n div 3);
             s:=s-(n div a);
            end
             else
            s:=s-(n div 3);
         end
          else
           s:=s-(n div i);
     end;
end;
assign(f, 'fractii.out');
rewrite(f);
write(f,s);
close(f);
end.