With[{ints = Range[100]},
     Pick[ints, Clip[Total[IntegerDigits[ints], {2}], {-∞, 5}], 5]]