OFFSET
0,3
LINKS
FORMULA
EXAMPLE
100 -> '1100100' -> [11]00[1]00 -> [1]00[1]00 -> '100100' -> 36=a(100).
MATHEMATICA
Array[FromDigits[Flatten[Split@ IntegerDigits[#, 2] /. w_List /; First[w] == 1 -> {1}], 2] &, 80, 0] (* Michael De Vlieger, Jul 28 2022 *)
PROG
(Python)
def a(n):
b = bin(n)[2:]
while "11" in b: b = b.replace("11", "1")
return int(b, 2)
print([a(n) for n in range(81)]) # Michael S. Branicky, Jul 27 2022
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, Nov 20 2003
STATUS
approved