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

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A200742 A178729 A073722 * A173824 A356603 A097211

Adjacent sequences: A124105 A124106 A124107 * A124109 A124110 A124111

Keyword

nonn

Author

Reinhard Zumkeller, Nov 26 2006

Extensions

Offset fixed by Reinhard Zumkeller, Mar 31 2015

Status

approved