133 is in the sequence because (1) it is a semiprime, (2) the sum of its digits is 1+3+3=7 and (3) 133 is divisible by 7.

MATHEMATICA

spQ[n_] := Plus @@ Last /@ FactorInteger@n == 2; Select[Range@7542, spQ@# && IntegerQ[ #/Plus @@ IntegerDigits@# ] &] - Robert G. Wilson v, Jun 10 2006