PerfectNumberQ¶ Test if a number is perfect (sum of proper divisors equals itself). $ wo 'PerfectNumberQ[6]' True