Select[
Range[100,999],
(Plus @@ ((# // IntegerDigits)^3))==#&
]