樓上說錯(cuò)了
　　20+13=33不是素?cái)?shù)啊,不滿足樓主說的條件
　　不過我用VB模擬了一下,就誒過仍然算不出樓主的謎底.
　　話說真的有這樣的數(shù)字嗎?是不是樓主條件錯(cuò)了?
　　下面是我的代碼：
　　Option Base 1
　　Dim counter As Long
　　Dim a() As Long
　　Private Sub Command1_Click()
　　Dim x As Long
　　Dim y As Long
　　counter = 0
　　For var = 1 To 260
　　got var
　　Next var
　　Print counter
　　For x = 1 To counter
　　For y = 1 To counter
　　If a(x) > a(y) Then
　　If a(x) * a(y) / 260 = MOD_(a(x),a(y)) Then
　　Text1.Text = Text1.Text & a(x) & "—" & a(y) & Chr(13) & Chr(10)
　　If pan(a(x) + a(y)) Then
　　Text2.Text = Text2.Text & a(x) & "—" & a(y) & Chr(13) & Chr(10)
　　End If
　　End If
　　Else
　　If a(x) * a(y) / 260 = MOD_(a(y),a(x)) Then
　　Text1.Text = Text1.Text & a(x) & "—" & a(y) & Chr(13) & Chr(10)
　　If pan(a(x) + a(y)) Then
　　Text2.Text = Text2.Text & a(x) & "—" & a(y) & Chr(13) & Chr(10)
　　End If
　　End If
　　End If
　　Next y
　　Next x
　　End Sub
　　Function MOD_(ByVal x As Long,ByVal y As Long) As Long
　　Do
　　t = x Mod y
　　x = y
　　y = t
　　Loop While t 0
　　MOD_ = x
　　End Function
　　Private Sub got(ByVal var As Long)
　　flag = 0
　　For i = 2 To Int(Sqr(var))
　　If var Mod i = 0 Then
　　flag = flag + 1
　　End If
　　Next i
　　If flag > 0 Then
　　counter = counter + 1
　　ReDim Preserve a(counter)
　　a(counter) = var
　　End If
　　End Sub
　　Function pan(ByVal var As Long) As Boolean
　　flag = 0
　　For i = 2 To Int(Sqr(var))
　　If var Mod i = 0 Then
　　flag = flag + 1
　　End If
　　Next i
　　If flag = 0 Then
　　pan = True
　　Else
　　pan = False
　　End If
　　End Function
　　代碼是沒有錯(cuò)誤的,我已經(jīng)試驗(yàn)很多次了.
　　如果我錯(cuò)了,煩請樓主知道答案時(shí)告訴我一聲.