Function isPrime(n As Uinteger) As Boolean
    Dim As Uinteger i
    For i = 2 To Sqr(n)
        If n Mod i = 0 Then Return False
    Next i
    Return True
End Function

Dim As Uinteger n, i, j, count
Dim Shared As Ulongint primes(1e8)
n = 1
For i = 0 To 9
    count = 0
    For j = 2 To n
        If isPrime(j) Then
            count += 1
            primes(count) = j
        End If
    Next j
    Print "10^"; i; "  "; count
    n *= 10
Next i

Sleep