数论问题巅峰对决

蔡家雄

还没有出来结果，该上班了，只好终止程序，明天再算吧！

ysr 兄：请你不要再计算此题！！！

素数方阵猜想，不是世界级难题，但胜似世界级难题！！！

ysr

这个问题有难度，请弄出个证明，验证都不容易。

ysr

n=50时，从100000000~100075000之间的素数开头的都没有连续50^2个素数的和为平方数的。

蔡家雄

请 ysr 兄：编程计算

偶数分拆：2n=2^16,  p=？？？

使 2^16=(p)+(2n-p)=(p+30)+(2n-p-30)=(p+210)+(2n-p-210)=(p+2310)+(2n-p-2310) 成立。

注：p, 2n-p, p+30, 2n-p-30, p+210, 2n-p-210, p+2310, 2n-p-2310 均为素数。

ysr

这个倒是容易，稍等会儿，验证一下再发结果。

ysr

30000与57000之间有3组p, 2n-p, p+30, 2n-p-30, p+210, 2n-p-210, p+2310, 2n-p-2310素数对:
/31973/33563/32003/33533/32183/33353/34283/31253
/51449/14087/51479/14057/51659/13877/53759/11777
/56963/8573/56993/8543/57173/8363/59273/6263

程序有问题？再大的话，2n-p-2310会成负数？

ysr

改进了一下程序，把能产生负数的都取绝对值，再验证一下。

ysr

验证结果如下：（负数已取绝对值）
10000与1000000之间有9组p, 2n-p, p+30, 2n-p-30, p+210, 2n-p-210, p+2310, 2n-p-2310素数对:
/31973/33563/32003/33533/32183/33353/34283/31253
/51449/14087/51479/14057/51659/13877/53759/11777
/56963/8573/56993/8543/57173/8363/59273/6263
/112757/47221/112787/47251/112967/47431/115067/49531
/115133/49597/115163/49627/115343/49807/117443/51907
/121937/56401/121967/56431/122147/56611/124247/58711
/124769/59233/124799/59263/124979/59443/127079/61543
/154409/88873/154439/88903/154619/89083/156719/91183
/536057/470521/536087/470551/536267/470731/538367/472831

ysr

其中2n=2^16=65536.直接代入65536了。

ysr

代码如下：（只发主程序）

Private Sub Command1_Click()
Dim a, b
a = Val(Text1)
a1 = a
q = Val(Text2)
m = Sqr(q)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While a <= q
b = Abs(65536 - a)
B1 = a + 30
b2 = Abs(65536 - a - 30)
b3 = a + 210
b4 = Abs(65536 - a - 210)
b5 = a + 2310
b6 = Abs(65536 - a - 2310)
c = fenjieyinzi0(Val(a))
d = fenjieyinzi0(Val(b))
D1 = fenjieyinzi0(Val(B1))
D2 = fenjieyinzi0(Val(b2))
d3 = fenjieyinzi0(Val(b3))
d4 = fenjieyinzi0(Val(b4))
d5 = fenjieyinzi0(Val(b5))
d6 = fenjieyinzi0(Val(b6))
If InStr(c, "*") = 0 And InStr(d, "*") = 0 And InStr(D1, "*") = 0 And InStr(D2, "*") = 0 And InStr(d3, "*") = 0 And InStr(d4, "*") = 0 And InStr(d5, "*") = 0 And InStr(d6, "*") = 0 Then
s = s + 1
Print a, b, B1
Text3 = Text3 & "/" & a & "/" & b & "/" & B1 & "/" & b2 & "/" & b3 & "/" & b4 & "/" & b5 & "/" & b6 & vbCrLf
Else
s = s
End If
a = a + 2
Loop

Combo1 = a1 & "与" & q & "之间有" & s & "组p, 2n-p, p+30, 2n-p-30, p+210, 2n-p-210, p+2310, 2n-p-2310素数对:" & vbCrLf & Text3
s103 = DeleteSpace1(Text3)
s103 = Mid(s103, 1)
Dim i As Integer
Dim ak(), s105, cr(), f
Set f = CreateObject("Scripting.Dictionary")
s105 = Split(s103, "/")
   j1 = UBound(s105)
   Print j1
   For k = 1 To j1
      n1 = n1 + 1
       ReDim Preserve ak(1 To n1)
      ak(n1) = s105(n1)
    Next
    Print ak(1)
     n = 0
        For k = 1 To j1
           For i = 1 To j1
             n = n + 1
             ReDim Preserve cr(1 To n)
            m = Val(ak(k)) + Val(ak(i))
            f(m) = ""
      Next
    Next
      n = 0
      m = f.Keys
      For i = 0 To f.Count - 1
          ReDim Preserve cr(1 To i + 1)
          cr(i + 1) = m(i)
      Next
     For i = 1 To UBound(cr) - 1
        For j = i + 1 To UBound(cr)
            If cr(i) > cr(j) Then
                temp = cr(j)
                cr(j) = cr(i)
                cr(i) = temp  'c数组是排序好的
            End If
        Next j
        
       ' If i Mod 20 = 0 Then
       ' s104 = s104 & temp & "/" & vbCrLf
       ' Else
       ' s104 = s104 & temp & "/"
       ' End If
    Next i
   
      For i = 1 To UBound(cr)
        If i Mod 20 = 0 Then
          s104 = s104 & cr(i) & "/" & vbCrLf
        Else
          s104 = s104 & cr(i) & "/"
        End If
     Next
         Print temp
         MsgBox "ok"
     MsgBox s104  '显示数组
Text4 = s104
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Combo1 = ""
Form1.Cls
End Sub