\'\'\' Prime Sieve \'\'\'
Public Function GeneratePrimesNaive(n As Integer) As List(Of Integer)
Dim primes As New List(Of Integer)()
primes.Add(2)
Dim nextPrime As Integer = 3
While nextPrime < n
Dim sqrt As Integer = CInt(Math.Sqrt(nextPrime))
Dim isPrime As Boolean = True
Dim i As Integer = 0
While CInt(primes(i)) <= sqrt
If nextPrime Mod primes(i) = 0 Then
isPrime = False
Exit While
End If
If i = primes.Count - 1 Then Exit While Else i += 1
End While
If isPrime Then
primes.Add(nextPrime)
End If
nextPrime += 2
End While
Return primes
End Function