program p1;
var f,g:text;
x,y,r,cmmdc,nr,i,j,n:word;
begin
assign(f,'fractii.in');
reset(f);
assign(g,'fractii.out');
rewrite(g);
readln(f,n);
nr:=0;
writeln(n);
for i:=1 to n do
for j:=1 to 4 do
begin
x:=i;
y:=j;
while y<>0 do
begin
r:=x mod y;
x:=y;
y:=r;
end;
cmmdc:=x;
if cmmdc=1 then
nr:=nr+1;
end;
write(g,nr);
close(f);
close(g);
end.