Chowla numbers: Difference between revisions

Content added Content deleted
(→‎More Cowbell: corrected missing final line of output)
m (→‎More Cowbell: deleted unused fragment of performance timing code)
Line 1,005: Line 1,005:
Next
Next
count = 0
count = 0
Dim p As BigInteger, k As BigInteger = 2, kk As BigInteger = 3, st As DateTime = DateTime.Now
Dim p As BigInteger, k As BigInteger = 2, kk As BigInteger = 3
For i As Integer = 2 To 31 ' if you dare, change the 31 to 61 or 89
For i As Integer = 2 To 31 ' if you dare, change the 31 to 61 or 89
If {2, 3, 5, 7, 13, 17, 19, 31, 61, 89}.Contains(i) Then
If {2, 3, 5, 7, 13, 17, 19, 31, 61, 89}.Contains(i) Then