label 0;var a:array[byte]of byte;i,j,k:byte=1;begin
0:writeln(j);a[j]:=1;i:=j;for j:=2to 141do for k:=2to j do
if(i+1div i)mod k+j mod k+a[j]<1 then goto 0;end.