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,2

Comments

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

Links

Table of n, a(n) for n=1..28.

Mathematica

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

Crossrefs

Cf. A084474, A038585.

Sequence in context: A285648 A084484 A231891 * A276768 A277798 A278467

Adjacent sequences: A084469 A084470 A084471 * A084473 A084474 A084475

Keyword

nonn

Author

Reinhard Zumkeller, May 27 2003

Status

approved