|
De som van de som van de delers
$\eqalign{
De som van de delers
$ Excel
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
WisFaq
Wiskundeleraar
|