-- Whether a number is the sum of two abundant numbers
isSumOfTwoAbundants n = any (\x -> isAbundant (n - x)) $ takeWhile (<n) abundants
isSumOfTwoAbundants n = any (\x -> isAbundant (n - x)) $ takeWhile (<n) abundants
isSumOfTwoAbundants n = any (\x -> isAbundant (n - x)) $ takeWhile (<n) abundants