A175467 Write n in binary. Place a 0 between every pair of adjacent 1's, and place a 1 between every pair of adjacent 0's. a(n) is the decimal equivalent of the result.

1, 2, 5, 10, 5, 10, 21, 42, 21, 10, 21, 42, 21, 42, 85, 170, 85, 42, 85, 42, 21, 42, 85, 170, 85, 42, 85, 170, 85, 170, 341, 682, 341, 170, 341, 170, 85, 170, 341, 170, 85, 42, 85, 170, 85, 170, 341, 682, 341, 170, 341, 170, 85, 170, 341, 682, 341, 170, 341, 682, 341

Offset

1,2

Links

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

Maple

A175467 := proc(n) local l2, a, i ; l2 := convert(n, base, 2) ; a := [op(1, l2)] ; for i from 2 to nops(l2) do if op(i, l2) = op(i-1, l2) then a := [op(a), 1-op(i, l2)] ; end if; a := [op(a), op(i, l2)] ; end do: add( op(i, a)*2^(i-1), i=1..nops(a)) ; end proc: seq(A175467(n), n=1..80) ; # R. J. Mathar, Sep 28 2010

Crossrefs

Cf. A000975. - R. J. Mathar, Sep 28 2010

Sequence in context: A194356 A227317 A224300 * A361806 A188525 A324503

Adjacent sequences: A175464 A175465 A175466 * A175468 A175469 A175470

Keyword

base,nonn

Author

Leroy Quet, May 24 2010

Extensions

More terms from R. J. Mathar, Sep 28 2010

Status

approved