A175909 Decimal representation of the binary number formed by the concatenation of digits which are the same in both the left and right binary concatenations of the integers 1 to n.

1, 1, 7, 46, 29, 219, 495, 1502, 368357, 27603, 120539, 1797358, 462906349, 32361431, 33008607, 12857291758, 5972138981, 750631865, 99509722923, 13841055262, 31762354574285, 1019248986603, 8645573738319287

Offset

1,3

Links

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

Mathematica

Module[{l, r, d}, l = {}; r = {}; Table[d = IntegerDigits[x, 2]; l = Flatten[{l, d}]; r = Flatten[{d, r}]; FromDigits[ Pick[l, EvenQ[l + r]], 2], {x, 1, DESIRED_NUMBER_OF_TERMS}]]

Crossrefs

Cf. A047778, A098780

Sequence in context: A287064 A222901 A347508 * A034471 A100024 A171010

Adjacent sequences: A175906 A175907 A175908 * A175910 A175911 A175912

Keyword

base,easy,nonn

Author

Dylan Hamilton, Oct 14 2010

Status

approved