Function a(n)
Dim m As Long
m = n \ 2
a = m * (m + 1)
End Function