Pattern: 1 2 6 14 27 46 72

[passel]

What do you think the formula should look like?
My initial stab at generating the series with code would be (using VB6):

Option Explicit

Private Sub Command1_Click()
  Dim a As Integer, b As Integer, c As Integer, d As Integer

  a = 1
  b = 2
  Debug.Print a
  Debug.Print b

  For c = 3 To 7
    d = (b - a) + c
    a = b
    b = b + d
    Debug.Print b
  Next

End Sub

I don't know if that helps with determining a formula, or whether the above code could be simplified.