3 added 15 characters in body
source | link

StringJoin @@ ToString /@ IntegerDigits[105, 3]
"10220"
FromDigits[ToExpression@Characters[%], 3]
105

StringJoin @@ ToString /@ IntegerDigits[105, 3] 
"10220"  
FromDigits[ToExpression@Characters[%], 3]
105

StringJoin @@ ToString /@ IntegerDigits[105, 3]
"10220"
FromDigits[ToExpression@Characters[%], 3]
105

StringJoin @@ ToString /@ IntegerDigits[105, 3] 
"10220"  
FromDigits[ToExpression@Characters[%], 3]
105
2 added 70 characters in body
source | link

StringJoin @@ ToString /@ IntegerDigits[15, 2]StringJoin @@ ToString /@ IntegerDigits[105, 3]
"10220"
FromDigits[ToExpression@Characters[%], 3]
105

StringJoin @@ ToString /@ IntegerDigits[15, 2]

StringJoin @@ ToString /@ IntegerDigits[105, 3]
"10220"
FromDigits[ToExpression@Characters[%], 3]
105

1
source | link

StringJoin @@ ToString /@ IntegerDigits[15, 2]