type vector=array [1..100] of real;
var a:vector;
i,j,n,p,nr,g,out:integer;
begin
readln(nr);
p:=1; n:=0;
for i:=1 to nr do
for j:=1 to nr do begin
a[p]:=i/j;
p:=p+1 ;
n:=n+1;
end;
for i:=1 to n do
write(a[i]:5:2,' ' );
writeln;
write(n);
readln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] = a[j] then begin
for g:=j to n - 1 do
a[j]:=a[j+1];
n:=n-1;
end;
out:=n;
writeln(out);
readln;
end.