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:
Next
count = 0
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
If {2, 3, 5, 7, 13, 17, 19, 31, 61, 89}.Contains(i) Then
|