判定梅森质数的卢卡斯序列

ysr · 发表于 2022-1-2 08:55

代码如下：

Private Sub Command1_Click()
'研究某数蔡氏素数的程序
Dim a, b
a = Val(Text1)
a1 = a
q = Val(Text2)
m = Val(16)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While m <= q
Do While a < Val(m)
Do While InStr(fenjieyinzi0(Val(a)), "*") > 0
a = a + 2
Loop

p1 = a
p2 = Val(m - p1)
p3 = Val(p1 + 210)
p4 = Val(p2 + 210)
Print p1, p2, p3, p4
If Val(p2) > 0 And InStr(fenjieyinzi0(Val(p1)), "*") = 0 And InStr(fenjieyinzi0(Val(p2)), "*") = 0 And InStr(fenjieyinzi0(Val(p3)), "*") = 0 Or InStr(fenjieyinzi0(Val(p4)), "*") = 0 Then
Text3 = Text3 & "2m=" & m & "p1=" & p1 & "p2=" & p2 & "p3=" & p3 & "p4=" & p4 & vbCrLf
s = s + 1
s103 = s103 & m & "/"

Else
m = m
End If

a = a + 2

Loop
m = Val(m + 2)
a = 3
Loop
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

         n = n + 1
         ReDim Preserve cr(1 To n)
         m = Val(ak(k))
         f(m) = ""

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  '显示数组
   s106 = Split(s104, "/")
j2 = UBound(s106)
Text4 = q & "内的不同偶数" & s104
Combo1 = q & "内有" & s & "组蔡氏偶数有" & Val(j2 - 1) & "个不同的偶数" & Text3

End Sub

蔡家雄 · 发表于 2022-1-2 10:14

ysr 发表于 2022-1-2 08:55
代码如下：

Private Sub Command1_Click()

蔡氏偶数分拆

大于6的两个相差6 的偶数分拆，

可以有一个相同的素数，

设 8 <= 2m=素数p1+素数p2，

则 2m+6=素数p1+素数(6+p2) 有解，

或 2m+6=素数p2+素数(6+p1) 有解。

这个，帮我验证到2000就行了，看是不是有2000/2 -3=997个，

ysr · 发表于 2022-1-2 17:11

蔡家雄发表于 2022-1-2 02:14
蔡氏偶数分拆

大于6的两个相差6 的偶数分拆，

100内有445组蔡氏偶数有47个不同的偶数2m=8p1=3p2=5p3=9p4=11
2m=8p1=5p2=3p3=11p4=9
2m=8p1=7p2=1p3=13p4=7
2m=10p1=3p2=7p3=9p4=13
2m=10p1=5p2=5p3=11p4=11
2m=10p1=7p2=3p3=13p4=9
2m=10p1=11p2=-1p3=17p4=5
2m=12p1=5p2=7p3=11p4=13
2m=12p1=7p2=5p3=13p4=11
2m=12p1=11p2=1p3=17p4=7
2m=14p1=3p2=11p3=9p4=17
2m=14p1=7p2=7p3=13p4=13
2m=14p1=11p2=3p3=17p4=9
2m=14p1=13p2=1p3=19p4=7
2m=16p1=3p2=13p3=9p4=19
2m=16p1=5p2=11p3=11p4=17
2m=16p1=11p2=5p3=17p4=11
2m=16p1=13p2=3p3=19p4=9
2m=16p1=17p2=-1p3=23p4=5
2m=18p1=5p2=13p3=11p4=19
2m=18p1=7p2=11p3=13p4=17
2m=18p1=11p2=7p3=17p4=13
2m=18p1=13p2=5p3=19p4=11
2m=18p1=17p2=1p3=23p4=7
2m=20p1=3p2=17p3=9p4=23
2m=20p1=7p2=13p3=13p4=19
2m=20p1=13p2=7p3=19p4=13
2m=20p1=17p2=3p3=23p4=9
2m=20p1=19p2=1p3=25p4=7
2m=22p1=5p2=17p3=11p4=23
2m=22p1=11p2=11p3=17p4=17
2m=22p1=17p2=5p3=23p4=11
2m=22p1=23p2=-1p3=29p4=5
2m=24p1=5p2=19p3=11p4=25
2m=24p1=7p2=17p3=13p4=23
2m=24p1=11p2=13p3=17p4=19
2m=24p1=13p2=11p3=19p4=17
2m=24p1=17p2=7p3=23p4=13
2m=24p1=19p2=5p3=25p4=11
2m=24p1=23p2=1p3=29p4=7
2m=26p1=3p2=23p3=9p4=29
2m=26p1=7p2=19p3=13p4=25
2m=26p1=13p2=13p3=19p4=19
2m=26p1=19p2=7p3=25p4=13
2m=26p1=23p2=3p3=29p4=9
2m=26p1=29p2=-3p3=35p4=3
2m=28p1=3p2=25p3=9p4=31
2m=28p1=5p2=23p3=11p4=29
2m=28p1=11p2=17p3=17p4=23
2m=28p1=17p2=11p3=23p4=17
2m=28p1=23p2=5p3=29p4=11
2m=28p1=29p2=-1p3=35p4=5
2m=30p1=5p2=25p3=11p4=31
2m=30p1=7p2=23p3=13p4=29
2m=30p1=11p2=19p3=17p4=25
2m=30p1=13p2=17p3=19p4=23
2m=30p1=17p2=13p3=23p4=19
2m=30p1=19p2=11p3=25p4=17
2m=30p1=23p2=7p3=29p4=13
2m=30p1=29p2=1p3=35p4=7
2m=32p1=7p2=25p3=13p4=31
2m=32p1=13p2=19p3=19p4=25
2m=32p1=19p2=13p3=25p4=19
2m=32p1=31p2=1p3=37p4=7
2m=34p1=3p2=31p3=9p4=37
2m=34p1=5p2=29p3=11p4=35
2m=34p1=11p2=23p3=17p4=29
2m=34p1=17p2=17p3=23p4=23
2m=34p1=23p2=11p3=29p4=17
2m=34p1=29p2=5p3=35p4=11
2m=34p1=31p2=3p3=37p4=9
2m=34p1=37p2=-3p3=43p4=3
2m=36p1=5p2=31p3=11p4=37
2m=36p1=7p2=29p3=13p4=35
2m=36p1=11p2=25p3=17p4=31
2m=36p1=13p2=23p3=19p4=29
2m=36p1=17p2=19p3=23p4=25
2m=36p1=19p2=17p3=25p4=23
2m=36p1=23p2=13p3=29p4=19
2m=36p1=29p2=7p3=35p4=13
2m=36p1=31p2=5p3=37p4=11
2m=36p1=37p2=-1p3=43p4=5
2m=38p1=3p2=35p3=9p4=41
2m=38p1=7p2=31p3=13p4=37
2m=38p1=13p2=25p3=19p4=31
2m=38p1=31p2=7p3=37p4=13
2m=38p1=37p2=1p3=43p4=7
2m=40p1=3p2=37p3=9p4=43
2m=40p1=5p2=35p3=11p4=41
2m=40p1=11p2=29p3=17p4=35
2m=40p1=17p2=23p3=23p4=29
2m=40p1=23p2=17p3=29p4=23
2m=40p1=29p2=11p3=35p4=17
2m=40p1=37p2=3p3=43p4=9
2m=40p1=41p2=-1p3=47p4=5
2m=42p1=5p2=37p3=11p4=43
2m=42p1=7p2=35p3=13p4=41
2m=42p1=11p2=31p3=17p4=37
2m=42p1=13p2=29p3=19p4=35
2m=42p1=17p2=25p3=23p4=31
2m=42p1=19p2=23p3=25p4=29
2m=42p1=23p2=19p3=29p4=25
2m=42p1=29p2=13p3=35p4=19
2m=42p1=31p2=11p3=37p4=17
2m=42p1=37p2=5p3=43p4=11
2m=42p1=41p2=1p3=47p4=7
2m=44p1=3p2=41p3=9p4=47
2m=44p1=7p2=37p3=13p4=43
2m=44p1=13p2=31p3=19p4=37
2m=44p1=19p2=25p3=25p4=31
2m=44p1=31p2=13p3=37p4=19
2m=44p1=37p2=7p3=43p4=13
2m=44p1=41p2=3p3=47p4=9
2m=44p1=43p2=1p3=49p4=7
2m=46p1=5p2=41p3=11p4=47
2m=46p1=11p2=35p3=17p4=41
2m=46p1=17p2=29p3=23p4=35
2m=46p1=23p2=23p3=29p4=29
2m=46p1=29p2=17p3=35p4=23
2m=46p1=41p2=5p3=47p4=11
2m=46p1=47p2=-1p3=53p4=5
2m=48p1=5p2=43p3=11p4=49
2m=48p1=7p2=41p3=13p4=47
2m=48p1=11p2=37p3=17p4=43
2m=48p1=13p2=35p3=19p4=41
2m=48p1=17p2=31p3=23p4=37
2m=48p1=23p2=25p3=29p4=31
2m=48p1=31p2=17p3=37p4=23
2m=48p1=37p2=11p3=43p4=17
2m=48p1=41p2=7p3=47p4=13
2m=48p1=43p2=5p3=49p4=11
2m=48p1=47p2=1p3=53p4=7
2m=50p1=3p2=47p3=9p4=53
2m=50p1=7p2=43p3=13p4=49
2m=50p1=13p2=37p3=19p4=43
2m=50p1=19p2=31p3=25p4=37
2m=50p1=31p2=19p3=37p4=25
2m=50p1=37p2=13p3=43p4=19
2m=50p1=43p2=7p3=49p4=13
2m=50p1=47p2=3p3=53p4=9
2m=50p1=53p2=-3p3=59p4=3
2m=52p1=5p2=47p3=11p4=53
2m=52p1=11p2=41p3=17p4=47
2m=52p1=17p2=35p3=23p4=41
2m=52p1=23p2=29p3=29p4=35
2m=52p1=29p2=23p3=35p4=29
2m=52p1=41p2=11p3=47p4=17
2m=52p1=47p2=5p3=53p4=11
2m=52p1=53p2=-1p3=59p4=5
2m=54p1=7p2=47p3=13p4=53
2m=54p1=11p2=43p3=17p4=49
2m=54p1=13p2=41p3=19p4=47
2m=54p1=17p2=37p3=23p4=43
2m=54p1=19p2=35p3=25p4=41
2m=54p1=23p2=31p3=29p4=37
2m=54p1=29p2=25p3=35p4=31
2m=54p1=31p2=23p3=37p4=29
2m=54p1=37p2=17p3=43p4=23
2m=54p1=41p2=13p3=47p4=19
2m=54p1=43p2=11p3=49p4=17
2m=54p1=47p2=7p3=53p4=13
2m=54p1=53p2=1p3=59p4=7
2m=56p1=3p2=53p3=9p4=59
2m=56p1=13p2=43p3=19p4=49
2m=56p1=19p2=37p3=25p4=43
2m=56p1=31p2=25p3=37p4=31
2m=56p1=37p2=19p3=43p4=25
2m=56p1=43p2=13p3=49p4=19
2m=56p1=53p2=3p3=59p4=9
2m=56p1=59p2=-3p3=65p4=3
2m=58p1=3p2=55p3=9p4=61
2m=58p1=5p2=53p3=11p4=59
2m=58p1=11p2=47p3=17p4=53
2m=58p1=17p2=41p3=23p4=47
2m=58p1=23p2=35p3=29p4=41
2m=58p1=41p2=17p3=47p4=23
2m=58p1=47p2=11p3=53p4=17
2m=58p1=53p2=5p3=59p4=11
2m=58p1=59p2=-1p3=65p4=5
2m=60p1=5p2=55p3=11p4=61
2m=60p1=7p2=53p3=13p4=59
2m=60p1=13p2=47p3=19p4=53
2m=60p1=17p2=43p3=23p4=49
2m=60p1=19p2=41p3=25p4=47
2m=60p1=23p2=37p3=29p4=43
2m=60p1=29p2=31p3=35p4=37
2m=60p1=31p2=29p3=37p4=35
2m=60p1=37p2=23p3=43p4=29
2m=60p1=41p2=19p3=47p4=25
2m=60p1=43p2=17p3=49p4=23
2m=60p1=47p2=13p3=53p4=19
2m=60p1=53p2=7p3=59p4=13
2m=60p1=59p2=1p3=65p4=7
2m=62p1=7p2=55p3=13p4=61
2m=62p1=31p2=31p3=37p4=37
2m=62p1=37p2=25p3=43p4=31
2m=62p1=61p2=1p3=67p4=7
2m=64p1=3p2=61p3=9p4=67
2m=64p1=5p2=59p3=11p4=65
2m=64p1=11p2=53p3=17p4=59
2m=64p1=17p2=47p3=23p4=53
2m=64p1=23p2=41p3=29p4=47
2m=64p1=29p2=35p3=35p4=41
2m=64p1=41p2=23p3=47p4=29
2m=64p1=47p2=17p3=53p4=23
2m=64p1=53p2=11p3=59p4=17
2m=64p1=59p2=5p3=65p4=11
2m=64p1=61p2=3p3=67p4=9
2m=64p1=67p2=-3p3=73p4=3
2m=66p1=5p2=61p3=11p4=67
2m=66p1=7p2=59p3=13p4=65
2m=66p1=11p2=55p3=17p4=61
2m=66p1=13p2=53p3=19p4=59
2m=66p1=19p2=47p3=25p4=53
2m=66p1=23p2=43p3=29p4=49
2m=66p1=29p2=37p3=35p4=43
2m=66p1=31p2=35p3=37p4=41
2m=66p1=37p2=29p3=43p4=35
2m=66p1=41p2=25p3=47p4=31
2m=66p1=43p2=23p3=49p4=29
2m=66p1=47p2=19p3=53p4=25
2m=66p1=53p2=13p3=59p4=19
2m=66p1=59p2=7p3=65p4=13
2m=66p1=61p2=5p3=67p4=11
2m=66p1=67p2=-1p3=73p4=5
2m=68p1=3p2=65p3=9p4=71
2m=68p1=7p2=61p3=13p4=67
2m=68p1=13p2=55p3=19p4=61
2m=68p1=31p2=37p3=37p4=43
2m=68p1=37p2=31p3=43p4=37
2m=68p1=43p2=25p3=49p4=31
2m=68p1=61p2=7p3=67p4=13
2m=68p1=67p2=1p3=73p4=7
2m=70p1=3p2=67p3=9p4=73
2m=70p1=5p2=65p3=11p4=71
2m=70p1=11p2=59p3=17p4=65
2m=70p1=17p2=53p3=23p4=59
2m=70p1=23p2=47p3=29p4=53
2m=70p1=29p2=41p3=35p4=47
2m=70p1=41p2=29p3=47p4=35
2m=70p1=47p2=23p3=53p4=29
2m=70p1=53p2=17p3=59p4=23
2m=70p1=59p2=11p3=65p4=17
2m=70p1=67p2=3p3=73p4=9
2m=70p1=71p2=-1p3=77p4=5
2m=72p1=5p2=67p3=11p4=73
2m=72p1=7p2=65p3=13p4=71
2m=72p1=11p2=61p3=17p4=67
2m=72p1=13p2=59p3=19p4=65
2m=72p1=17p2=55p3=23p4=61
2m=72p1=19p2=53p3=25p4=59
2m=72p1=31p2=41p3=37p4=47
2m=72p1=37p2=35p3=43p4=41
2m=72p1=41p2=31p3=47p4=37
2m=72p1=47p2=25p3=53p4=31
2m=72p1=53p2=19p3=59p4=25
2m=72p1=59p2=13p3=65p4=19
2m=72p1=61p2=11p3=67p4=17
2m=72p1=67p2=5p3=73p4=11
2m=72p1=71p2=1p3=77p4=7
2m=74p1=7p2=67p3=13p4=73
2m=74p1=13p2=61p3=19p4=67
2m=74p1=19p2=55p3=25p4=61
2m=74p1=31p2=43p3=37p4=49
2m=74p1=37p2=37p3=43p4=43
2m=74p1=43p2=31p3=49p4=37
2m=74p1=61p2=13p3=67p4=19
2m=74p1=67p2=7p3=73p4=13
2m=74p1=73p2=1p3=79p4=7
2m=76p1=3p2=73p3=9p4=79
2m=76p1=5p2=71p3=11p4=77
2m=76p1=11p2=65p3=17p4=71
2m=76p1=17p2=59p3=23p4=65
2m=76p1=23p2=53p3=29p4=59
2m=76p1=29p2=47p3=35p4=53
2m=76p1=41p2=35p3=47p4=41
2m=76p1=47p2=29p3=53p4=35
2m=76p1=53p2=23p3=59p4=29
2m=76p1=59p2=17p3=65p4=23
2m=76p1=71p2=5p3=77p4=11
2m=76p1=73p2=3p3=79p4=9
2m=76p1=79p2=-3p3=85p4=3
2m=78p1=5p2=73p3=11p4=79
2m=78p1=7p2=71p3=13p4=77
2m=78p1=11p2=67p3=17p4=73
2m=78p1=13p2=65p3=19p4=71
2m=78p1=17p2=61p3=23p4=67
2m=78p1=23p2=55p3=29p4=61
2m=78p1=31p2=47p3=37p4=53
2m=78p1=37p2=41p3=43p4=47
2m=78p1=41p2=37p3=47p4=43
2m=78p1=43p2=35p3=49p4=41
2m=78p1=47p2=31p3=53p4=37
2m=78p1=53p2=25p3=59p4=31
2m=78p1=61p2=17p3=67p4=23
2m=78p1=67p2=11p3=73p4=17
2m=78p1=71p2=7p3=77p4=13
2m=78p1=73p2=5p3=79p4=11
2m=78p1=79p2=-1p3=85p4=5
2m=80p1=3p2=77p3=9p4=83
2m=80p1=7p2=73p3=13p4=79
2m=80p1=13p2=67p3=19p4=73
2m=80p1=19p2=61p3=25p4=67
2m=80p1=37p2=43p3=43p4=49
2m=80p1=43p2=37p3=49p4=43
2m=80p1=61p2=19p3=67p4=25
2m=80p1=67p2=13p3=73p4=19
2m=80p1=73p2=7p3=79p4=13
2m=80p1=79p2=1p3=85p4=7
2m=82p1=5p2=77p3=11p4=83
2m=82p1=11p2=71p3=17p4=77
2m=82p1=17p2=65p3=23p4=71
2m=82p1=23p2=59p3=29p4=65
2m=82p1=29p2=53p3=35p4=59
2m=82p1=41p2=41p3=47p4=47
2m=82p1=47p2=35p3=53p4=41
2m=82p1=53p2=29p3=59p4=35
2m=82p1=59p2=23p3=65p4=29
2m=82p1=71p2=11p3=77p4=17
2m=82p1=83p2=-1p3=89p4=5
2m=84p1=5p2=79p3=11p4=85
2m=84p1=7p2=77p3=13p4=83
2m=84p1=11p2=73p3=17p4=79
2m=84p1=13p2=71p3=19p4=77
2m=84p1=17p2=67p3=23p4=73
2m=84p1=19p2=65p3=25p4=71
2m=84p1=23p2=61p3=29p4=67
2m=84p1=29p2=55p3=35p4=61
2m=84p1=31p2=53p3=37p4=59
2m=84p1=37p2=47p3=43p4=53
2m=84p1=41p2=43p3=47p4=49
2m=84p1=43p2=41p3=49p4=47
2m=84p1=47p2=37p3=53p4=43
2m=84p1=53p2=31p3=59p4=37
2m=84p1=59p2=25p3=65p4=31
2m=84p1=61p2=23p3=67p4=29
2m=84p1=67p2=17p3=73p4=23
2m=84p1=71p2=13p3=77p4=19
2m=84p1=73p2=11p3=79p4=17
2m=84p1=79p2=5p3=85p4=11
2m=84p1=83p2=1p3=89p4=7
2m=86p1=3p2=83p3=9p4=89
2m=86p1=7p2=79p3=13p4=85
2m=86p1=13p2=73p3=19p4=79
2m=86p1=19p2=67p3=25p4=73
2m=86p1=31p2=55p3=37p4=61
2m=86p1=61p2=25p3=67p4=31
2m=86p1=67p2=19p3=73p4=25
2m=86p1=73p2=13p3=79p4=19
2m=86p1=79p2=7p3=85p4=13
2m=86p1=83p2=3p3=89p4=9
2m=86p1=89p2=-3p3=95p4=3
2m=88p1=5p2=83p3=11p4=89
2m=88p1=11p2=77p3=17p4=83
2m=88p1=17p2=71p3=23p4=77
2m=88p1=23p2=65p3=29p4=71
2m=88p1=41p2=47p3=47p4=53
2m=88p1=47p2=41p3=53p4=47
2m=88p1=53p2=35p3=59p4=41
2m=88p1=71p2=17p3=77p4=23
2m=88p1=83p2=5p3=89p4=11
2m=88p1=89p2=-1p3=95p4=5
2m=90p1=7p2=83p3=13p4=89
2m=90p1=11p2=79p3=17p4=85
2m=90p1=13p2=77p3=19p4=83
2m=90p1=17p2=73p3=23p4=79
2m=90p1=23p2=67p3=29p4=73
2m=90p1=29p2=61p3=35p4=67
2m=90p1=31p2=59p3=37p4=65
2m=90p1=37p2=53p3=43p4=59
2m=90p1=43p2=47p3=49p4=53
2m=90p1=47p2=43p3=53p4=49
2m=90p1=53p2=37p3=59p4=43
2m=90p1=59p2=31p3=65p4=37
2m=90p1=61p2=29p3=67p4=35
2m=90p1=67p2=23p3=73p4=29
2m=90p1=73p2=17p3=79p4=23
2m=90p1=79p2=11p3=85p4=17
2m=90p1=83p2=7p3=89p4=13
2m=90p1=89p2=1p3=95p4=7
2m=92p1=13p2=79p3=19p4=85
2m=92p1=19p2=73p3=25p4=79
2m=92p1=31p2=61p3=37p4=67
2m=92p1=37p2=55p3=43p4=61
2m=92p1=61p2=31p3=67p4=37
2m=92p1=67p2=25p3=73p4=31
2m=92p1=73p2=19p3=79p4=25
2m=92p1=79p2=13p3=85p4=19
2m=94p1=3p2=91p3=9p4=97
2m=94p1=5p2=89p3=11p4=95
2m=94p1=11p2=83p3=17p4=89
2m=94p1=17p2=77p3=23p4=83
2m=94p1=23p2=71p3=29p4=77
2m=94p1=29p2=65p3=35p4=71
2m=94p1=41p2=53p3=47p4=59
2m=94p1=47p2=47p3=53p4=53
2m=94p1=53p2=41p3=59p4=47
2m=94p1=59p2=35p3=65p4=41
2m=94p1=71p2=23p3=77p4=29
2m=94p1=83p2=11p3=89p4=17
2m=94p1=89p2=5p3=95p4=11
2m=94p1=97p2=-3p3=103p4=3
2m=96p1=5p2=91p3=11p4=97
2m=96p1=7p2=89p3=13p4=95
2m=96p1=13p2=83p3=19p4=89
2m=96p1=17p2=79p3=23p4=85
2m=96p1=19p2=77p3=25p4=83
2m=96p1=23p2=73p3=29p4=79
2m=96p1=29p2=67p3=35p4=73
2m=96p1=31p2=65p3=37p4=71
2m=96p1=37p2=59p3=43p4=65
2m=96p1=41p2=55p3=47p4=61
2m=96p1=43p2=53p3=49p4=59
2m=96p1=53p2=43p3=59p4=49
2m=96p1=59p2=37p3=65p4=43
2m=96p1=61p2=35p3=67p4=41
2m=96p1=67p2=29p3=73p4=35
2m=96p1=71p2=25p3=77p4=31
2m=96p1=73p2=23p3=79p4=29
2m=96p1=79p2=17p3=85p4=23
2m=96p1=83p2=13p3=89p4=19
2m=96p1=89p2=7p3=95p4=13
2m=96p1=97p2=-1p3=103p4=5
2m=98p1=3p2=95p3=9p4=101
2m=98p1=7p2=91p3=13p4=97
2m=98p1=31p2=67p3=37p4=73
2m=98p1=37p2=61p3=43p4=67
2m=98p1=43p2=55p3=49p4=61
2m=98p1=61p2=37p3=67p4=43
2m=98p1=67p2=31p3=73p4=37
2m=98p1=73p2=25p3=79p4=31
2m=98p1=97p2=1p3=103p4=7
2m=100p1=3p2=97p3=9p4=103
2m=100p1=5p2=95p3=11p4=101
2m=100p1=11p2=89p3=17p4=95
2m=100p1=17p2=83p3=23p4=89
2m=100p1=23p2=77p3=29p4=83
2m=100p1=41p2=59p3=47p4=65
2m=100p1=47p2=53p3=53p4=59
2m=100p1=53p2=47p3=59p4=53
2m=100p1=59p2=41p3=65p4=47
2m=100p1=83p2=17p3=89p4=23
2m=100p1=89p2=11p3=95p4=17
2m=100p1=97p2=3p3=103p4=9
2m=100p1=101p2=-1p3=107p4=5

ysr · 发表于 2022-1-2 17:13

对，就是100内有47个偶数，都是大于等于8的偶数：
100内的不同偶数0/8/10/12/14/16/18/20/22/24/26/28/30/32/34/36/38/40/42/44/
46/48/50/52/54/56/58/60/62/64/66/68/70/72/74/76/78/80/82/84/
86/88/90/92/94/96/98/100/

ysr · 发表于 2022-1-2 17:22

蔡家雄发表于 2022-1-2 02:14
蔡氏偶数分拆

大于6的两个相差6 的偶数分拆，

2000内的不同偶数（就是997个）0/8/10/12/14/16/18/20/22/24/26/28/30/32/34/36/38/40/42/44/
46/48/50/52/54/56/58/60/62/64/66/68/70/72/74/76/78/80/82/84/
86/88/90/92/94/96/98/100/102/104/106/108/110/112/114/116/118/120/122/124/
126/128/130/132/134/136/138/140/142/144/146/148/150/152/154/156/158/160/162/164/
166/168/170/172/174/176/178/180/182/184/186/188/190/192/194/196/198/200/202/204/
206/208/210/212/214/216/218/220/222/224/226/228/230/232/234/236/238/240/242/244/
246/248/250/252/254/256/258/260/262/264/266/268/270/272/274/276/278/280/282/284/
286/288/290/292/294/296/298/300/302/304/306/308/310/312/314/316/318/320/322/324/
326/328/330/332/334/336/338/340/342/344/346/348/350/352/354/356/358/360/362/364/
366/368/370/372/374/376/378/380/382/384/386/388/390/392/394/396/398/400/402/404/
406/408/410/412/414/416/418/420/422/424/426/428/430/432/434/436/438/440/442/444/
446/448/450/452/454/456/458/460/462/464/466/468/470/472/474/476/478/480/482/484/
486/488/490/492/494/496/498/500/502/504/506/508/510/512/514/516/518/520/522/524/
526/528/530/532/534/536/538/540/542/544/546/548/550/552/554/556/558/560/562/564/
566/568/570/572/574/576/578/580/582/584/586/588/590/592/594/596/598/600/602/604/
606/608/610/612/614/616/618/620/622/624/626/628/630/632/634/636/638/640/642/644/
646/648/650/652/654/656/658/660/662/664/666/668/670/672/674/676/678/680/682/684/
686/688/690/692/694/696/698/700/702/704/706/708/710/712/714/716/718/720/722/724/
726/728/730/732/734/736/738/740/742/744/746/748/750/752/754/756/758/760/762/764/
766/768/770/772/774/776/778/780/782/784/786/788/790/792/794/796/798/800/802/804/
806/808/810/812/814/816/818/820/822/824/826/828/830/832/834/836/838/840/842/844/
846/848/850/852/854/856/858/860/862/864/866/868/870/872/874/876/878/880/882/884/
886/888/890/892/894/896/898/900/902/904/906/908/910/912/914/916/918/920/922/924/
926/928/930/932/934/936/938/940/942/944/946/948/950/952/954/956/958/960/962/964/
966/968/970/972/974/976/978/980/982/984/986/988/990/992/994/996/998/1000/1002/1004/
1006/1008/1010/1012/1014/1016/1018/1020/1022/1024/1026/1028/1030/1032/1034/1036/1038/1040/1042/1044/
1046/1048/1050/1052/1054/1056/1058/1060/1062/1064/1066/1068/1070/1072/1074/1076/1078/1080/1082/1084/
1086/1088/1090/1092/1094/1096/1098/1100/1102/1104/1106/1108/1110/1112/1114/1116/1118/1120/1122/1124/
1126/1128/1130/1132/1134/1136/1138/1140/1142/1144/1146/1148/1150/1152/1154/1156/1158/1160/1162/1164/
1166/1168/1170/1172/1174/1176/1178/1180/1182/1184/1186/1188/1190/1192/1194/1196/1198/1200/1202/1204/
1206/1208/1210/1212/1214/1216/1218/1220/1222/1224/1226/1228/1230/1232/1234/1236/1238/1240/1242/1244/
1246/1248/1250/1252/1254/1256/1258/1260/1262/1264/1266/1268/1270/1272/1274/1276/1278/1280/1282/1284/
1286/1288/1290/1292/1294/1296/1298/1300/1302/1304/1306/1308/1310/1312/1314/1316/1318/1320/1322/1324/
1326/1328/1330/1332/1334/1336/1338/1340/1342/1344/1346/1348/1350/1352/1354/1356/1358/1360/1362/1364/
1366/1368/1370/1372/1374/1376/1378/1380/1382/1384/1386/1388/1390/1392/1394/1396/1398/1400/1402/1404/
1406/1408/1410/1412/1414/1416/1418/1420/1422/1424/1426/1428/1430/1432/1434/1436/1438/1440/1442/1444/
1446/1448/1450/1452/1454/1456/1458/1460/1462/1464/1466/1468/1470/1472/1474/1476/1478/1480/1482/1484/
1486/1488/1490/1492/1494/1496/1498/1500/1502/1504/1506/1508/1510/1512/1514/1516/1518/1520/1522/1524/
1526/1528/1530/1532/1534/1536/1538/1540/1542/1544/1546/1548/1550/1552/1554/1556/1558/1560/1562/1564/
1566/1568/1570/1572/1574/1576/1578/1580/1582/1584/1586/1588/1590/1592/1594/1596/1598/1600/1602/1604/
1606/1608/1610/1612/1614/1616/1618/1620/1622/1624/1626/1628/1630/1632/1634/1636/1638/1640/1642/1644/
1646/1648/1650/1652/1654/1656/1658/1660/1662/1664/1666/1668/1670/1672/1674/1676/1678/1680/1682/1684/
1686/1688/1690/1692/1694/1696/1698/1700/1702/1704/1706/1708/1710/1712/1714/1716/1718/1720/1722/1724/
1726/1728/1730/1732/1734/1736/1738/1740/1742/1744/1746/1748/1750/1752/1754/1756/1758/1760/1762/1764/
1766/1768/1770/1772/1774/1776/1778/1780/1782/1784/1786/1788/1790/1792/1794/1796/1798/1800/1802/1804/
1806/1808/1810/1812/1814/1816/1818/1820/1822/1824/1826/1828/1830/1832/1834/1836/1838/1840/1842/1844/
1846/1848/1850/1852/1854/1856/1858/1860/1862/1864/1866/1868/1870/1872/1874/1876/1878/1880/1882/1884/
1886/1888/1890/1892/1894/1896/1898/1900/1902/1904/1906/1908/1910/1912/1914/1916/1918/1920/1922/1924/
1926/1928/1930/1932/1934/1936/1938/1940/1942/1944/1946/1948/1950/1952/1954/1956/1958/1960/1962/1964/
1966/1968/1970/1972/1974/1976/1978/1980/1982/1984/1986/1988/1990/1992/1994/1996/1998/2000/

ysr · 发表于 2022-1-2 17:28

2000内有66245组蔡氏偶数有997个不同的偶数2m=8p1=3p2=5p3=9p4=11
2m=8p1=5p2=3p3=11p4=9
2m=8p1=7p2=1p3=13p4=7
2m=10p1=3p2=7p3=9p4=13
2m=10p1=5p2=5p3=11p4=11
2m=10p1=7p2=3p3=13p4=9
2m=10p1=11p2=-1p3=17p4=5
2m=12p1=5p2=7p3=11p4=13
2m=12p1=7p2=5p3=13p4=11
2m=12p1=11p2=1p3=17p4=7
2m=14p1=3p2=11p3=9p4=17
2m=14p1=7p2=7p3=13p4=13
2m=14p1=11p2=3p3=17p4=9
2m=14p1=13p2=1p3=19p4=7
2m=16p1=3p2=13p3=9p4=19
2m=16p1=5p2=11p3=11p4=17
2m=16p1=11p2=5p3=17p4=11
2m=16p1=13p2=3p3=19p4=9
2m=16p1=17p2=-1p3=23p4=5
2m=18p1=5p2=13p3=11p4=19
2m=18p1=7p2=11p3=13p4=17
2m=18p1=11p2=7p3=17p4=13
2m=18p1=13p2=5p3=19p4=11
2m=18p1=17p2=1p3=23p4=7
2m=20p1=3p2=17p3=9p4=23
2m=20p1=7p2=13p3=13p4=19
2m=20p1=13p2=7p3=19p4=13
2m=20p1=17p2=3p3=23p4=9
2m=20p1=19p2=1p3=25p4=7
2m=22p1=5p2=17p3=11p4=23
2m=22p1=11p2=11p3=17p4=17
2m=22p1=17p2=5p3=23p4=11
2m=22p1=23p2=-1p3=29p4=5
2m=24p1=5p2=19p3=11p4=25
2m=24p1=7p2=17p3=13p4=23
2m=24p1=11p2=13p3=17p4=19
2m=24p1=13p2=11p3=19p4=17
2m=24p1=17p2=7p3=23p4=13
2m=24p1=19p2=5p3=25p4=11
2m=24p1=23p2=1p3=29p4=7
2m=26p1=3p2=23p3=9p4=29
2m=26p1=7p2=19p3=13p4=25
2m=26p1=13p2=13p3=19p4=19
2m=26p1=19p2=7p3=25p4=13
2m=26p1=23p2=3p3=29p4=9
2m=26p1=29p2=-3p3=35p4=3
2m=28p1=3p2=25p3=9p4=31
2m=28p1=5p2=23p3=11p4=29
2m=28p1=11p2=17p3=17p4=23
2m=28p1=17p2=11p3=23p4=17
2m=28p1=23p2=5p3=29p4=11
2m=28p1=29p2=-1p3=35p4=5
2m=30p1=5p2=25p3=11p4=31
2m=30p1=7p2=23p3=13p4=29
2m=30p1=11p2=19p3=17p4=25
2m=30p1=13p2=17p3=19p4=23
2m=30p1=17p2=13p3=23p4=19
2m=30p1=19p2=11p3=25p4=17
2m=30p1=23p2=7p3=29p4=13
2m=30p1=29p2=1p3=35p4=7
2m=32p1=7p2=25p3=13p4=31
2m=32p1=13p2=19p3=19p4=25
2m=32p1=19p2=13p3=25p4=19
2m=32p1=31p2=1p3=37p4=7
2m=34p1=3p2=31p3=9p4=37
2m=34p1=5p2=29p3=11p4=35
2m=34p1=11p2=23p3=17p4=29
2m=34p1=17p2=17p3=23p4=23
2m=34p1=23p2=11p3=29p4=17
2m=34p1=29p2=5p3=35p4=11
2m=34p1=31p2=3p3=37p4=9
2m=34p1=37p2=-3p3=43p4=3
2m=36p1=5p2=31p3=11p4=37
2m=36p1=7p2=29p3=13p4=35
2m=36p1=11p2=25p3=17p4=31
2m=36p1=13p2=23p3=19p4=29
2m=36p1=17p2=19p3=23p4=25
2m=36p1=19p2=17p3=25p4=23
2m=36p1=23p2=13p3=29p4=19
2m=36p1=29p2=7p3=35p4=13
2m=36p1=31p2=5p3=37p4=11
2m=36p1=37p2

ysr · 发表于 2022-1-2 17:30

代码如下：

Private Sub Command1_Click()
'研究某数蔡氏素数的程序
Dim a, b
a = Val(Text1)
a1 = a
q = Val(Text2)
m = Val(8)
If Right(a, 1) Mod 2 = 0 Then
a = a + 1
Else
a = a
End If
s = 0
Do While m <= q
Do While a < Val(m)
Do While InStr(fenjieyinzi0(Val(a)), "*") > 0
a = a + 2
Loop

p1 = a
p2 = Val(m - p1)
p3 = Val(p1 + 6)
p4 = Val(p2 + 6)
Print p1, p2, p3, p4
If Val(p2) > 0 And InStr(fenjieyinzi0(Val(p1)), "*") = 0 And InStr(fenjieyinzi0(Val(p2)), "*") = 0 And InStr(fenjieyinzi0(Val(p3)), "*") = 0 Or InStr(fenjieyinzi0(Val(p4)), "*") = 0 Then
Text3 = Text3 & "2m=" & m & "p1=" & p1 & "p2=" & p2 & "p3=" & p3 & "p4=" & p4 & vbCrLf
s = s + 1
s103 = s103 & m & "/"

Else
m = m
End If

a = a + 2

Loop
m = Val(m + 2)
a = 3
Loop
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

         n = n + 1
         ReDim Preserve cr(1 To n)
         m = Val(ak(k))
         f(m) = ""

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  '显示数组
   s106 = Split(s104, "/")
j2 = UBound(s106)
Text4 = q & "内的不同偶数" & s104
Combo1 = q & "内有" & s & "组蔡氏偶数有" & Val(j2 - 1) & "个不同的偶数" & Text3

End Sub

ysr · 发表于 2022-1-2 17:49

是素数p1+素数p4=2m+6或者素数p2+素数p3=2m+6.

蔡家雄 · 发表于 2022-1-3 18:38

ysr 发表于 2022-1-2 17:49
是素数p1+素数p4=2m+6或者素数p2+素数p3=2m+6.

蔡氏偶数分拆

大于6的两个相差6 的偶数分拆，可以有一个相同的素数，

大于6的两个相差12 的偶数分拆，可以有一个相同的素数，

大于6的两个相差18 的偶数分拆，可以有一个相同的素数，

大于6的两个相差24 的偶数分拆，可以有一个相同的素数，

大于8的两个相差30 的偶数分拆，可以有一个相同的素数，

.........................................................................................................

大于14的两个相差210 的偶数分拆，可以有一个相同的素数，

wlc1 · 发表于 2022-1-3 20:21

		自动登录	找回密码
密码			注册

判定梅森质数的卢卡斯序列

点评