Table[{t, 64 - t}, {t, 3, 64, 2}]
{{3,61},{5,59},{7,57},{9,55},{11,53},{13,51},{15,49},{17,47},{19,45},{21,43},{23,41},{25,39},{27,37},{29,35},{31,33},{33,31},{35,29},{37,27},{39,25},{41,23},{43,21},{45,19},{47,17},{49,15},{51,13},{53,11},{55,9},{57,7},{59,5},{61,3},{63,1}}
求出{a,b }内两元素都是素数的集合比如{5,59} ,{41,23}等

Cases[Table[{t, 64 - t}, {t, 3, 64, 2}], {a_, b_} /; PrimeQ[a] == PrimeQ[b] == True]

Select[Table[{t, 64 - t}, {t, 3, 64, 2}], AllTrue[#, PrimeQ] &]
Cases[Table[{t, 64 - t}, {t, 3, 64, 2}], {a_, b_} /;PrimeQ[a] && PrimeQ[b]]