|
| |
|
|
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
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
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) ; [From R. J. Mathar, Sep 28 2010]
|
|
|
CROSSREFS
|
Cf. A000975. [From R. J. Mathar, Sep 28 2010]
Sequence in context: A078322 A194356 A224300 * A188525 A126842 A154680
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
|
| |
|
|
