$\eqalign{ a(n) = \sum\limits_{k = 1}^n {\sigma (k)} = \sum\limits_{k = 1}^n {k \cdot \left\lfloor {\frac{n} {k}} \right\rfloor } }$ 1, 4, 8, 15, 21, 33, 41, 56, 69, 87, 99, 127, 141, ...
$ \sigma (n) = a(n) - a(n - 1) $ 1, 3, 4, 7, 6, 12, 8, 15, ...
Function SomDelers(n) Dim k, som som = 0 For k = 1 To n som = som + k * Fix(n \ k) Next k SomDelers = som End Function Function Sigma(n) If n > 1 Then Sigma = SomDelers(n) - SomDelers(n - 1) Else Sigma = 1 End If End Function