A124108 Replace each 1 with 10 in binary representation of n.

0, 2, 4, 10, 8, 18, 20, 42, 16, 34, 36, 74, 40, 82, 84, 170, 32, 66, 68, 138, 72, 146, 148, 298, 80, 162, 164, 330, 168, 338, 340, 682, 64, 130, 132, 266, 136, 274, 276, 554, 144, 290, 292, 586, 296, 594, 596, 1194, 160, 322, 324, 650, 328, 658, 660, 1322, 336, 674

Offset: 0

Author

Reinhard Zumkeller, Nov 26 2006

Keywords

• nonn

Comments

A070939(a(n)) = A056791(n);

A023416(a(n)) = A023416(n) + A000120(n); A000120(a(n)) = A000120(n).

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 0..10000
• Index entries for sequences related to binary expansion of n

Crossrefs

Cf. A023416, A000120, A056791, A070939, A048678, A007088.

Programs

Haskell

a124108 0 = 0
a124108 x = 2 * (b + 1) * a124108 x' + (b * 2)
            where (x', b) = divMod x 2
-- Reinhard Zumkeller, Mar 31 2015

Mathematica

Table[FromDigits[Flatten[IntegerDigits[n,2]/.(1->{1,0})],2],{n,0,60}] (* Harvey P. Dale, May 20 2021 *)

Extensions

Offset fixed by Reinhard Zumkeller, Mar 31 2015