Очень долгий подсчёт данных, возможно застрял в цикле. Нужна оптимизация

        public string BinGen(int size)//генерирует случайное двоичное число заданной длины
        {
            int[] binArray = new int[size]; binArray[0] = 1; binArray[size - 1] = 1;
            for (int i = 1; i < binArray.Length - 1; i++)
            {
                binArray[i] = new Random().Next(0, 2);
                Thread.Sleep(1);
            }
            string binaryString = String.Concat<int>(binArray);//сцепляет элементы массива в строку
            return binaryString;
        }
        public BigInteger BinToDec(string str)//переводит число из 2-й СС в 10-ю
        {
            BigInteger decNum = 0;
            for (int i = 0; i < str.Length; i++)
            {
                if(str[i] != '0')
                    decNum += ((int)str[i] - 48) * BigInteger.Pow(2, str.Length - i - 1);//-48 потому что он через жопу переводит "1" из аски как 49
            }
            return decNum;
        }
        public bool isPrime(BigInteger number)//проверяет простое ли число
        {
            for (int i = 2; i < number; i++)
            {
                if (number % i == 0)
                    return false;
            }
            return true;
        }
            private void button1_Click(object sender, EventArgs e) 
           {
            string s = BinGen(16);
            BigInteger n = BinToDec(s);
            while(isPrime(n) == false)
            {
                s = BinGen(16);
                n = BinToDec(s);
            }
            richTextBox1.Text = Convert.ToString(n);
            richTextBox2.Text = s;
            }

        public bool isPrime(BigInteger number)//проверяет простое ли число
        {
            if (BigInteger.Pow(number, 2) % 24 == 1)
                return true;
        return false;
        }