第６話 リュカテストを利用した完全数探索
をリュカテストを利用して実現するプログラム例
Private Sub CommandButton1_Click()
Dim i As Integer, cn As Byte, w As Long, v As Long
cn = 0
Cells(4, 5) = "n"
For i = 3 To 20
w = 1
For j = 1 To i - 1
w = 2 * w
Next
w = w - 1
v = 4
For j = 1 To i - 3
v = v * v - 2
Next
If v Mod w = 0 Then
cn = cn + 1
Cells(4 + cn, 1) = cn
Cells(4 + cn, 2) = "番目"
Cells(4 + cn, 3) = w * Int((w + 1) / 2)
Cells(4 + cn, 5) = i
If cn = 2 Then
Exit Sub
End If
End If
Next
End Sub
Private Sub CommandButton2_Click()
Rows("4:2000").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ダウンロード添付ファイル
リュカテストを導入しても、
最大の完全数は33550336と変わらず、
６が表示されずやや後退してしましましたが、
大きな跳躍のための後退です。
ｎ進数の研究が
かけ算→割り算
まで進んだときに、完全数の探索は爆発的に進むことになります。
第２４講では、
等の数独を解くソフトの開発に取り組みます。
