Table[Count[IntegerDigits[2^17574,3],k],{k,0,2}]