The code you have provided in the description didn't made sense because of several reasons.
The names. This is not a code review but the names are just too bad to not be reviewed. One programmer reviewing code will completely loose the logic by trying to figure out what does diving has to do with summation.
Also, a list of amicable numbers does not even make sense. Amicable numbers come in pairs.
The code wasn't even compilable on a first point, and the reasons are already up.
When you have found (220, 284) you need to record that you have already found 284, otherwise when the loop iterates to 284 it will find 220 again.
Crudely, with no thought given to optimisation, and in VB:
Code:
ListAmicablePairs()
Dim alreadyFound AsNewList(OfInteger)
For i =1To9999
Dim spd1 =SumProperDivisors(i)
Dim spd2 =SumProperDivisors(spd1)
If spd2 = i AndAlso spd1 <> i AndAlsoNot alreadyFound.Contains(i)Then
alreadyFound.Add(i)
alreadyFound.Add(spd1)
Console.WriteLine("({0}, {1})", i, spd1)
EndIf
Next
Console.WriteLine(alreadyFound.Sum())
EndSub
Outputs:
(220, 284)
(1184, 1210)
(2620, 2924)
(5020, 5564)
(6232, 6368)
31626