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

ysr

代码：

Private Sub Command1_Click() '求由2个孪生素数对组成的4生素数组的程序
Dim A, B
A = Val(Text1)
a1 = A
q = Val(Text2)
ts = Timer
m = Sqr(q)
t = Trim(Text4)

s = 0
a2 = A
Do While a2 <= 40

B1 = Val(a2 * (a2 + 1) * (a2 + 2) - 1)
b2 = Val(a2 * (a2 + 1) * (a2 + 2) + 1)

C1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Val(b2))

If InStr(C1, "*") = 0 And InStr(C2, "*") = 0 Then
s = s + 1
Print B1, b2, b3, b4
Text3 = Text3 & "/" & B1 & "/" & b2 & "n=" & a2 & vbCrLf
Else
s = s
End If
a2 = a2 + 1

Loop
a2 = a2
s1 = s
Do While a2 <= q

B1 = Val(a2 * (a2 + 1) * (a2 + 2) - 1)
b2 = Val(a2 * (a2 + 1) * (a2 + 2) + 1)
C1 = fenjieyinzi0(Val(B1))
C2 = fenjieyinzi0(Val(b2))

If InStr(C1, "*") = 0 And InStr(C2, "*") = 0 Then
s1 = s1 + 1
Print B1, b2, b3, b4
Text3 = Text3 & "/" & B1 & "/" & b2 & "n=" & a2 & vbCrLf
s1 = s1
End If
a2 = a2 + 1

Loop
Combo1 = a1 & "与" & q & "之间的使 n(n+1)(n+2) -1 与 n(n+1)(n+2)+1 均为孪生素数" & s1 & "组2生素数对: (用时" & Timer - ts & "秒）" & vbCrLf & Text3

End Sub

蔡家雄

同一个n值，

使 n(n+1)(n+2) -1 与 n(n+1)(n+2)+1 均为孪生素数，

及 (n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生素数，

的 前10个解，ysr，你能找够 吗？

ysr

蔡家雄 发表于 2021-8-4 07:28
同一个n值，

使 n(n+1)(n+2) -1 与 n(n+1)(n+2)+1 均为孪生素数，

1与200之间的(n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生素数16组2生素数对: (用时0.0546875秒）
/59/61n=2
/1319/1321n=9
/2729/2731n=12
/3359/3361n=13
/9239/9241n=19
/29759/29761n=29
/42839/42841n=33
/68879/68881n=39
/91079/91081n=43
/1367519/1367521n=109
/2196869/2196871n=128
/2515319/2515321n=134
/2743859/2743861n=138
/3723719/3723721n=153
/5451599/5451601n=174
/6751079/6751081n=187

蔡家雄

同一个n值，

使 n(n+1)(n+2) -1 与 n(n+1)(n+2)+1 均为孪生素数，

及 (n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生素数，

组成的 4生素数 的 前10个解，ysr 找到了，，，，

/2729/2731/3359/3361  n=13
/100544159/100544161/101194229/101194231  n=464
/10007871719/10007871721/10021810259/10021810261  n=2154
/237751858679/237751858681/237867011339/237867011341  n=6194
/1248895575839/1248895575841/1249243522229/1249243522231  n=10768
/26198072970299/26198072970301/26200719329399/26200719329401  n=29699
/48563204991419/48563204991421/48567198347639/48567198347641  n=36483
/95632080471269/95632080471271/95638354307159/95638354307161  n=45729
/149205894845279/149205894845281/149214334410959/149214334410961  n=53038
/155547270098219/155547270098221/155555947124759/155555947124761  n=53779
/292821083313719/292821083313721/292834312385009/292834312385011  n=66404

它们好像均为两对 (30k+29 , 30k+31) 组成的 4生素数，，，，

ysr

蔡家雄 发表于 2021-8-4 09:53
同一个n值，

使 n(n+1)(n+2) -1 与 n(n+1)(n+2)+1 均为孪生素数，

1与5000之间的n(n+1)(n+2) -1 与 n(n+1)(n+2)+1,(n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生素数3组4生素数对: (用时574.5703秒）
/2729/2731/3359/3361n=13
/100544159/100544161/101194229/101194231n=464
/10007871719/10007871721/10021810259/10021810261n=2154

ysr

蔡家雄 发表于 2021-8-4 09:53
同一个n值，

使 n(n+1)(n+2) -1 与 n(n+1)(n+2)+1 均为孪生素数，

5000与20000之间的n(n+1)(n+2) -1 与 n(n+1)(n+2)+1,(n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生素数2组4生素数对: (用时3890.652秒）
/237751858679/237751858681/237867011339/237867011341n=6194
/1248895575839/1248895575841/1249243522229/1249243522231n=10768

ysr

ysr 发表于 2021-8-4 11:18
5000与20000之间的n(n+1)(n+2) -1 与 n(n+1)(n+2)+1,(n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生 ...

20000与40000之间的n(n+1)(n+2) -1 与 n(n+1)(n+2)+1,(n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生素数2组4生素数对: (用时7266.695秒）
/26198072970299/26198072970301/26200719329399/26200719329401n=29699
/48563204991419/48563204991421/48567198347639/48567198347641n=36483
不够10个解，数据大速度就慢，再算一段吧

ysr

ysr 发表于 2021-8-4 13:57
20000与40000之间的n(n+1)(n+2) -1 与 n(n+1)(n+2)+1,(n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生 ...

40000与70000之间的n(n+1)(n+2) -1 与 n(n+1)(n+2)+1,(n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生素数4组4生素数对: (用时-72298.3秒）
/95632080471269/95632080471271/95638354307159/95638354307161n=45729
/149205894845279/149205894845281/149214334410959/149214334410961n=53038
/155547270098219/155547270098221/155555947124759/155555947124761n=53779
/292821083313719/292821083313721/292834312385009/292834312385011n=66404

ysr

得到11个解了，前10组解为：
/2729/2731/3359/3361n=13
/100544159/100544161/101194229/101194231n=464
/10007871719/10007871721/10021810259/10021810261n=2154
/237751858679/237751858681/237867011339/237867011341n=6194
/1248895575839/1248895575841/1249243522229/1249243522231n=10768

/26198072970299/26198072970301/26200719329399/26200719329401n=29699
/48563204991419/48563204991421/48567198347639/48567198347641n=36483
/95632080471269/95632080471271/95638354307159/95638354307161n=45729
/149205894845279/149205894845281/149214334410959/149214334410961n=53038
/155547270098219/155547270098221/155555947124759/155555947124761n=53779

蔡家雄

同一个n值，

使 n(n+1)(n+2) -1 与 n(n+1)(n+2)+1 均为孪生素数，

及 (n+1)(n+2)(n+3) -1 与 (n+1)(n+2)(n+3)+1 均为孪生素数，

组成的 4生素数 的 前10个解，ysr 找到了，，，，

/2729/2731/3359/3361  n=13
/100544159/100544161/101194229/101194231  n=464
/10007871719/10007871721/10021810259/10021810261  n=2154
/237751858679/237751858681/237867011339/237867011341  n=6194
/1248895575839/1248895575841/1249243522229/1249243522231  n=10768
/26198072970299/26198072970301/26200719329399/26200719329401  n=29699
/48563204991419/48563204991421/48567198347639/48567198347641  n=36483
/95632080471269/95632080471271/95638354307159/95638354307161  n=45729
/149205894845279/149205894845281/149214334410959/149214334410961  n=53038
/155547270098219/155547270098221/155555947124759/155555947124761  n=53779
/292821083313719/292821083313721/292834312385009/292834312385011  n=66404

猜想：它们均为两对 (30k+29 , 30k+31) 组成的 4生素数，，，，