//エラトステネスの篩

#include<iostream>
using namespace std;

int prime[10000000];

int main()
{

    for(int i=0; i<10000000; i++){
      prime[i] = i+1;
      if(i==0)
        prime[0] = 0;
    }
    
    for(int i=1; i<10000000; i++){     
      if(prime[i]!=0){
         i++;
        for(int j=2; i*j<10000000; j++){
          prime[i*j-1] = 0;
         }
         i--;  
       } 
     }




  while(1){
  
    int n;
    
    cin >> n;
    
    if(n==0)
      return 0;
       
     while(n>=13){
       if(prime[n-1]!=0 && prime[n-3]!=0 && prime[n-7]!=0 && prime[n-9]!=0){
         cout  << prime[n-1] << endl;
         break;
       }
       n--;
     }
     
  } 
    
    
    


}