package main
import (
"bufio"
"fmt"
"os"
"sort"
)
const MAX = 60000 + 1 // a+b 最大 60000
var isPrime [MAX]bool
var primeList []int
// 线性筛法预处理素数
func sieve() {
for i := 2; i < MAX; i++ {
isPrime[i] = true
}
for i := 2; i < MAX; i++ {
if isPrime[i] {
primeList = append(primeList, i)
for j := i * 2; j < MAX; j += i { // 所有 i 的倍数都不是素数
isPrime[j] = false
}
}
}
}
/*
素数是奇数+偶数
二分图配对问题
以个数少的一方为配对基准(左图left)
优先对left中可匹配right图数较少的元素进行配对
*/
func main() {
sieve()
scanner := bufio.NewScanner(os.Stdin)
scanner.Split(bufio.ScanWords)
// 读 n
scanner.Scan()
var n int
fmt.Sscan(scanner.Text(), &n)
// 读 n 个数
nums := make([]int, n)
for i := 0; i < n; i++ {
scanner.Scan()
fmt.Sscan(scanner.Text(), &nums[i])
}
// 分离奇偶
var evens, odds []int
for _, x := range nums {
if x%2 == 0 {
evens = append(evens, x) // 偶数
} else {
odds = append(odds, x) //奇数
}
}
// 决定哪边做左部(如果个数相差较大):选个数少的
evensLessOdd := float64((len(odds) - len(evens)))/float64(len(evens)) > 0.2
var left, right []int
var adj [][]int
if evensLessOdd {
left, right = evens, odds
} else {
left, right = odds, evens
}
// 构建邻接表:left[i] 能和哪些 right[j] 配对
adj = make([][]int, len(left))
var sum int
for i, u := range left {
for j, v := range right {
sum = u + v
if sum < MAX && isPrime[sum] {
adj[i] = append(adj[i], j)
}
}
}
// (可选,由于一般相差不大,排序未必更高效)在构建 adj 后,按可匹配数升序排序 left
indices := make([]int, len(left))
for i := range indices {
indices[i] = i
}
sort.Slice(indices, func(i, j int) bool {
return len(adj[indices[i]]) < len(adj[indices[j]])
})
// 重新排序 adj(和 left,如果需要)
newAdj := make([][]int, len(left))
for i, idx := range indices {
newAdj[i] = adj[idx]
}
adj = newAdj
// 匈牙利算法求最大匹配
matchRight := make([]int, len(right)) // matchRight[j] = 哪个 left 的索引匹配了 right[j]
for i := range matchRight {
matchRight[i] = -1
}
var dfs func(u int, visit []bool) bool
dfs = func(u int, visited []bool) bool {
for _,i := range adj[u] {
if visited[i] {
continue
}
visited[i] = true
if matchRight[i] == -1 || dfs(matchRight[i], visited){
// 传的是同一个 visited 数组,因为它表示“在当前这一次增广路搜索中,哪些右部节点已经被尝试过”。
// 不重置,是为了避免在同一次搜索中重复尝试同一个右部节点,防止无限递归和无效搜索。
matchRight[i]=u
return true
}
}
return false
}
var matching int =0
for i:=0;i<len(left);i++ {
visited := make([]bool, len(right))
if dfs(i, visited){
matching++
}
}
fmt.Println(matching)
}