Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Lucas-Lehmer-test/VBScript/lucas-lehmer-test.vb
+++ b/Task/Lucas-Lehmer-test/VBScript/lucas-lehmer-test.vb
@ -0,0 +1,18 @@
+iexpmax = 15
+n=1
+out=""
+For iexp = 2 To iexpmax
+	If iexp = 2 Then
+		s = 0
+	Else
+		s = 4
+	End If
+	n = (n + 1) * 2 - 1
+	For i = 1 To iexp - 2
+		s = (s * s - 2) Mod n
+	Next
+	If s = 0 Then
+		out=out & "M" & iexp & " "
+	End If
+Next
+Wscript.echo out