Amicable number calculator
Golfscript (51 50 chars)

2{.{:a,(\{.a\%!*+}/}:^~1$&gt;{..^^={[..^](\p}*}*).}do


The core is the override of ^ as :a,(\{.a\%!*+}/ which finds the aliquot of the number on the top of the stack (call it n) by the grossly inefficient approach of considering every number from 1 to n-1 to see whether it's a factor.