Problem:
四つ子素数

(a, a+2, a+6, a+8) のように並んだ 4 つの素数の組を四つ子素数といいます。四つ子素数を構成する四つの素数のうち、最大の数をその四つ子素数の大きさと呼びます。例えば、最も小さい大きさの四つ子素数は、(5, 7, 11, 13) の組であり、その大きさは 13 です。次に大きい四つ子素数は、(11, 13, 17, 19) の組で、その大きさは 19 です。

整数 n (13 ≤ n ≤ 10,000,000) を入力とし、大きさが n 以下になるような四つ子素数のうち、最大となるものの大きさを出力するプログラムを作成してください。

Input

複数のデータセットの並びが入力として与えられます。入力の終わりはゼロひとつの行で示されます。
各データセットとして１つの整数 n が１行に与えられます。

データセットの数は 2000 を超えません。

Output

入力データセットごとに、最大となる四つ子素数の大きさを1行に出力します。

Sample Input

13
14
15
16
17
18
19
20
10000
0

Output for the Sample Input

13
13
13
13
13
13
19
19
9439

Solution in C# (judge verdict: Time Limit Exceeded)

using System;
using System.Collections.Generic;
using System.Linq;

namespace AOJ.Volume2
{
    public class PrimeQuadruplet
    {
        public static int Main()
        {
            // 10000000??\???????´???°????±???????
            var prime = new bool[10000001];
            prime[0] = false;
            prime[1] = false;
            prime[2] = true;
            var prime_list = new List<int>() { 2 };
            for (int i = 3; i <= 10000000; i++)
            {
                bool is_prime = true;
                foreach (var p in prime_list)
                {
                    if (i % p == 0)
                    {
                        is_prime = false;
                        break;
                    }

                    if (p * p >= i) { break; }
                }

                if (is_prime)
                {
                    prime_list.Add(i);
                    prime[i] = true;
                }
                else { prime[i] = false; }
            }

            // 4???????´???°????±???????
            var quad_prime = new List<int>();
            foreach(var p in prime_list)
            {
                if (prime[p + 2] && prime[p + 6] && prime[p + 8]) { quad_prime.Add(p + 8); }
            }

            while (true)
            {
                int n = int.Parse(Console.ReadLine());
                if(n == 0) { break; }
                int ans = quad_prime.OrderByDescending(x => x).First(y => y <= n);
                Console.WriteLine(ans);
            }
            return 0;
        }
    }
}