|
|
A321802
|
|
Delete all consecutive identical decimal digits of n; write -1 if all digits disappear.
|
|
6
|
|
|
0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, -1, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, -1, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, -1, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, -1, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, -1, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, -1, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, -1, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, -1, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, -1, 1, 101, 102, 103, 104, 105, 106, 107, 108, 109, 0, -1, 2, 3, 4, 5, 6, 7, 8, 9, 120, 121, 1
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
COMMENTS
|
Consecutive identical digits of n are erased. Leading zeros are erased unless the result is 0. If all digits are erased, we write -1 for the result (A321801 is another version, which uses 0 for the empty string).
More than the usual number of terms are shown in order to reach some interesting examples. Agrees with A320485 for n < 101.
|
|
LINKS
|
|
|
EXAMPLE
|
12311 becomes 123, 1123 becomes 23, 11231 becomes 231, and 110232 becomes 232 (as we don't accept leading zeros). Note that 112233 disappears immediately and we get -1.
1110 becomes 0 and 11000, 1100011 all become -1.
|
|
MATHEMATICA
|
A321802[n_]:=With[{d=Flatten[Select[Split[IntegerDigits[n]], Length[#]==1&]]}, If[d=={}, -1, FromDigits[d]]]; Array[A321802, 100, 0] (* Paolo Xausa, Nov 14 2023 *)
|
|
PROG
|
(Python)
from re import split
return (lambda x: int(x) if x != '' else -1)(''.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))
(PARI) apply( A321802(n)={if(n, forstep(i=#n=digits(n), 2, -1, n[i]!=n[i-1]&&next; if(i<3||n[i-2]!=n[i], n=n[^i]; i--); n=n[^i]); if(#n, fromdigits(n), -1))}, [0..122]) \\ M. F. Hasler, Nov 20 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
sign,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|