Public Prime1 As Integer

Public Sub Main()

  Dim n As Integer = 3, c As Integer = 0, Prime2 As Integer

  Print "The first 50 Blum integers:"
  Do
    If isSemiprime(n) Then
      If Prime1 Mod 4 = 3 Then
        Prime2 = n / Prime1
        If (Prime2 <> Prime1) And (Prime2 Mod 4 = 3) Then
          c += 1
          If c <= 50 Then
            Print Format$(n, "####");
            If c Mod 10 = 0 Then Print
          End If
          If c >= 26828 Then
            Print "\nThe 26828th Blum integer is: "; n
            Break
          End If
        End If
      End If
    End If
    n += 2
  Loop

End

Function isSemiprime(n As Integer) As Boolean

  Dim d As Integer = 3, c As Integer = 0
  While d * d <= n
    While n Mod d = 0
      If c = 2 Then Return False
      n /= d
      c += 1
    Wend
    d += 2
  Wend
  Prime1 = n
  Return c = 1

End Function