

A175949


Numbers obtained by concatenation of the binary representation of A175946(n) and A175945(n).


1



1, 2, 3, 6, 5, 4, 7, 14, 13, 10, 11, 12, 9, 8, 15, 30, 29, 26, 27, 18, 21, 20, 23, 28, 25, 22, 19, 24, 17, 16, 31, 62, 61, 58, 59, 50, 53, 52, 55, 34, 37, 42, 43, 36, 41, 40, 47, 60, 57, 54, 51, 38, 45, 44, 39, 56, 49, 46, 35, 48, 33, 32, 63, 126, 125, 122, 123, 114, 117, 116
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


COMMENTS

The operation as in A175948, but the runlength encoding of zeros (A175946) is placed left from the runlength encoding of ones (A175945).


LINKS

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


EXAMPLE

n=9 is 1001 in binary. Run lengths of 0's are 2 (one run of length 2) and of 1's are 11 (two runs each of length 1). The concatenation of these lengths is 211, which is interpreted as 2 one's, 1 zero, 1 one, binary 1101, and recoded decimal as a(9)=8+4+1 =13.


MATHEMATICA

takelist[l_, t_] := Module[{lent, term}, Set[lent, Length[t]]; Table[l[[t[[y]]]], {y, 1, lent}]]
frombinrep[x_] := FromDigits[Flatten[Table[Table[If[OddQ[n], 1, 0], {d, 1, x[[n]]}], {n, 1, Length[x]}]], 2]
binrep[x_] := repcount[IntegerDigits[x, 2]]
onebinrep[x_]:=Module[{b}, b=binrep[x]; takelist[b, Range[1, Length[b], 2]]]
zerobinrep[x_]:=Module[{b}, b=binrep[x]; takelist[b, Range[2, Length[b], 2]]]
Table[frombinrep[Flatten[{zerobinrep[n], onebinrep[n]}]], {n, START, END}]


CROSSREFS

Sequence in context: A056539 A105726 A284460 * A166404 A166166 A106452
Adjacent sequences: A175946 A175947 A175948 * A175950 A175951 A175952


KEYWORD

base,nonn


AUTHOR

Dylan Hamilton, Oct 28 2010


STATUS

approved



