Imports System
Public Class Program
Public Shared Sub collatz_sequence(ByVal n As Integer)
Console.Write(n & " ")
While n > 1
If n Mod 2 = 0 Then
n = n / 2
Else
n = 3 * n + 1
End If
Console.Write(n & " ")
End While
End Sub
Public Shared Sub Main()
collatz_sequence(7)
End Sub
End Class
' run:
'
' 7 22 11 34 17 52 26 13 40 20 10 5 16 8 4 2 1
'