|
|
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.
|
|
0
|
|
|
1, 1, 7, 46, 29, 219, 495, 1502, 368357, 27603, 120539, 1797358, 462906349, 32361431, 33008607, 12857291758, 5972138981, 750631865, 99509722923, 13841055262, 31762354574285, 1019248986603, 8645573738319287
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|