A084472 Write n in binary and replace 0 with 00.

1, 100, 11, 10000, 1001, 1100, 111, 1000000, 100001, 100100, 10011, 110000, 11001, 11100, 1111, 100000000, 10000001, 10000100, 1000011, 10010000, 1001001, 1001100, 100111, 11000000, 1100001, 1100100, 110011, 1110000

Offset: 1

Author

Reinhard Zumkeller, May 27 2003

Keywords

• nonn

Comments

a(n)=A007088(A084471(n)).

Crossrefs

Cf. A084474, A038585.

Programs

Mathematica

Table[FromDigits[Flatten[IntegerDigits[n,2]/.(0->{0,0})]],{n,30}] (* Harvey P. Dale, Aug 27 2019 *)