program fact;
   var p,n1:longint;f,g:text;zero,n:real;
   begin
   assign(f,'fact.in');reset(f);
   assign(g,'fact.out');rewrite(g);
   readln(f,p);zero:=1;n:=1;
   repeat
   p:=p-1;
   zero:=zero*10;
   until p=0;
   while p=0 do begin
   inc(n1);
   n:=n*n1;
   if trunc(n) div trunc(zero)*trunc(zero)=trunc(n) then begin
   p:=1;writeln(g,n1);
   end;
   end;
   close(f);close(g);
   end.