Table[Count[IntegerDigits[3^5642,4],k],{k,0,3}]