Imports System

Public Module Module1

    Public Sub Main()

        console.writeline("2")

        Dim array() as integer = {1,2}

        Dim check as integer = 0

        For i = 3 to 5000

            For j = 1 to (array.length()-1)

                If i mod array(j) = 0

                        check = 1

                End If

            next

            If check = 0

                Array.Resize(array, array.Length() + 1)

                array(array.Length() - 1) = (i)

                Console.writeline(i)

            End If

            check = 0

            i = i + 1

        next

    End Sub

End Module