#include using namespace std; #define fst(t) std::get<0>(t) #define snd(t) std::get<1>(t) #define thd(t) std::get<2>(t) #define unless(p) if(!(p)) #define until(p) while(!(p)) using ll = long long; using P = std::tuple; const int dx[8] = {-1, 1, 0, 0, -1, -1, 1, 1}, dy[8] = {0, 0, -1, 1, -1, 1, -1, 1}; int N; std::vector A; template T mult(T a, T b, T mod){ T res = 0; while(b){ if(b & 1){res = (res + a) % mod;} a = (a + a) % mod; b >>= 1; } return res; } template T expt(T a, T n, T mod){ T res = 1; while(n){ if(n & 1){res = mult(res, a, mod);} a = mult(a, a, mod); n >>= 1; } return res; } bool isPrime(ll n){ if(n % 2 == 0){ return n == 2; } ll k = 0, q = n - 1; while(q % 2 == 0){ k += 1; q /= 2; } constexpr ll sets[] = {2, 325, 28178}; //, 9375, 28178, 450775, 9780504, 1795265022}; for(ll a : sets){ ll p = expt(a, q, n); if(p == 1){ continue; } bool ok = false; for(int i=0;i> N; A.resize(N); for(int i=0;i> A[i]; } ll res = -1; while(true){ unless(N > 1 && (A[N-1] % 2 == 0 || A[N-1] % 5 == 0)){ ll n = 0; for(int a : A){ if(a < 10){ n = n * 10 + a; }else{ n = n * 100 + a; } } unless(n > 100 && (n % 3 == 0 || n % 7 == 0 || n % 11 == 0 || n % 13 == 0)){ if(isPrime(n)){ res = std::max(res, n); } } } if(!next_permutation(A.begin(), A.end())){ break; } } std::cout << res << std::endl; }