for(i in a<-0:104)write(sum(i%/%2^a%%2*3^a),T)