f4[x_] :=Total[IntegerDigits[x]]