I've been trying to make this code faster and more efficient for a few days now, but it still doesn't seem as efficient as it could be. 

```
Sub Main()
    Dim watch As Stopwatch = Stopwatch.StartNew()

    Dim l As New List(Of ULong)(CType(My.Application.CommandLineArgs.Item(0), ULong))
    For i As ULong = 1 To l.Capacity
        ' ONE LINE IF STMT: If l.Capacity And 1 <> 0 Then If i And 1 = 0 Then l.Add((i * i) - 1) Else l.Add((i * i) + 1) Else If i And 1 = 0 Then l.Add((i * i) + 1) Else l.Add((i * i) - 1)
        If l.Capacity And 1 <> 0 Then
            If i And 1 = 0 Then
                l.Add((i * i) - 1)
            Else
                l.Add((i * i) + 1)
            End If
        Else
            If i And 1 = 0 Then
                l.Add((i * i) + 1)
            Else
                l.Add((i * i) - 1)
            End If
        End If
    Next i
    Console.WriteLine(String.Join(","c, l.ToArray))

    watch.Stop()
    Console.WriteLine(watch.Elapsed.TotalMilliseconds)
    Console.ReadLine()
End Sub

```

It currently runs 100 iterations of i in 4.3 milliseconds.
I feel like the nested if statements are the main bottleneck here, but I'm not sure of any way I can change them.

So, can this code be made more efficient?

Thanks... :)