program fractii;
var f,g:text;i,j,n,nr,k:longint;ok:boolean;
begin
assign (f,'fractii.in'); reset (f);
assign (g,'fractii.out'); rewrite (g);
while not eof(f) do
begin
readln (f,n);
nr:=0;
for i:=1 to n do
for j:=1 to n do
begin
ok:=true;
for k:=2 to n do
if (i mod k=0) and (j mod k=0) then ok:=false;
if ok=true then nr:=nr+1
end;
writeln (g,nr);
end;
close (f);
close (g);
end.