A Mathematica script for Amicable Numbers