type
long=array [1..200] of longint;
var
x,z,ar:long;
k,nx,nz:longint;
i,w,n,u,y:longint;

Procedure cem(var x,z:long; var nx,nz:longint);
var
p,q,i:integer;
Begin
p:=0;
For i:=1 to nz do
Begin
q:=x[i]+z[i]+p;
z[i]:=q mod 10;

p:=q div 10;
End;
If p=1 then
Begin
nz:=nz+1;  inc(u);
z[nz]:=1;
End;
End;

   procedure bolme(b:longint);
     var
        a,i:longint;
       begin
        a:=1; i:=201;
         repeat
          dec(i);
          if a>b then begin ar[i]:=a div b; a:=a mod b; end;
          a:=a*10;
         until (a=0) or (i=1);
       end;


begin
readln(n);
k:=0;
repeat
inc(k,2);
nx:=200; nz:=200;
if k-1=n then bolme(k-1)
else
bolme((k*(k-1)));
cem(ar,z,nx,nz);
for w:=1 to nz do ar[w]:=0;
until (k=n) or (k-1=n);


inc(u);    y:=-1;
For w:=nz downto 1 do
begin
inc(y);
if u=y then write(',');
Write(z[w]);
end;
readln;
End.