ÔÚ10000ÒÔÄÚ,Á½¸öÖÊÊýÖ®ºÍµÈÓÚ10000µÄÓжàÉÙ¶Ô?

Select[Range[4999],(PrimeQ[#]&&PrimeQ[10000-#])&]//Length µÃ127.


Ïà¹ØËÑË÷

ÈÈÃÅËÑË÷