var a:array[1..100] of longint;
i,n,b,j,k:integer;
f1, f2:text;


function cmmdc(i,j:longint):longint;
begin
if i=0 then cmmdc:=j else cmmdc:=cmmdc(j mod i, i);
end;


begin
 k:=0;
assign(f1, 'fractii.in');
reset(f1);
readln(f1,b);
assign(f2, '.fractii.out');
rewrite(f2);

for i:=1 to n do
begin
for j:=1 to n do 
if cmmdc(i,j)=1 then inc(k);
end;
writeln(f2, k);
close(f2);
end.