Implementada la función is_amicable