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

Author

Dylan Hamilton, Oct 14 2010

Keywords

• base
• easy
• nonn

Crossrefs

Cf. A047778, A098780

Programs

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}]]