type vector=array [1..2000] of real;
type vector2=array [1..2000] of integer;
function caut(x:real;a:vector;n:integer):boolean;
var i:integer;
begin
caut:=false;
for i:=1 to n do
if a[i]=x then begin caut:=true;break end;
end;
function euclid(x,y:integer):integer;
begin
if y=0 then euclid:=x
else euclid:=euclid(y,x mod y);
end;
var i,j,n,r,s,d,c:integer;
f,g:text;
a,e:vector;b:vector2;
begin
assign(f,'fractii.in');reset(f);
assign(g,'fractii.out');rewrite(g);
while not eof(f) do begin
inc(i);
read(f,b[i]);
end;r:=i;
for s:=1 to r do begin
d:=0;c:=0;a:=e;
for i:=1 to b[s] do
for j:=1 to b[s] do
if caut(i/j,a,c)=false then begin
inc(d);
inc(c);a[c]:=i/j;
end;
writeln(g,d);
end;
close(g);
end.