OFFSET
0,12
COMMENTS
Consecutive identical digits of n are kept. Leading zeros are erased unless the result is 0. If all digits are erased, we write 0 for the result (A321804 is another version, which uses -1 for the empty string).
More than the usual number of terms are shown in order to reach some interesting examples. Agrees with A321797 for n < 121.
Differs from A321538 for the first time at n = 11011. - Chai Wah Wu, Nov 29 2018
EXAMPLE
123321 becomes 33, 1123 becomes 11, 112331 becomes 1133, and 100223 becomes 22 (as we don't accept leading zeros). Note that 12321 disappears immediately and we get 0.
MATHEMATICA
Array[FromDigits[Join @@ Select[Split@ IntegerDigits@ #, Length@ # >= 2 &] /. {} -> {0}] &, 200, 0] (* Michael De Vlieger, Nov 20 2018 *)
PROG
(Python)
from re import split
def A321803(n):
return int('0'+''.join(d if len(d) != 1 else '' for d in split('(0+)|(1+)|(2+)|(3+)|(4+)|(5+)|(6+)|(7+)|(8+)|(9+)', str(n)) if d != '' and d != None))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Chai Wah Wu, Nov 19 2018
STATUS
approved