A175919 Convert n to binary. XOR each respective digit of binary n and binary A030101(n), where A030101(n) is the reversal of the order of the digits in the binary representation of n (given in decimal). a(n) is the decimal value of the result.
0, 0, 3, 0, 5, 0, 5, 0, 9, 0, 15, 6, 15, 6, 9, 0, 17, 0, 27, 10, 17, 0, 27, 10, 27, 10, 17, 0, 27, 10, 17, 0, 33, 0, 51, 18, 45, 12, 63, 30, 45, 12, 63, 30, 33, 0, 51, 18, 51, 18, 33, 0, 63, 30, 45, 12, 63, 30, 45, 12, 51, 18, 33, 0, 65, 0, 99, 34, 85, 20, 119, 54, 65, 0, 99, 34, 85, 20, 119
Offset: 0
Links
- Alois P. Heinz, Table of n, a(n) for n = 0..16383
Crossrefs
Programs
-
Mathematica
Table[f = IntegerDigits[x, 2]; f = f + Reverse[f]; FromDigits[ Table[If[OddQ[f[[r]]], 1, 0], {r, 1, Length[f]}], 2], {x, STARTPOINT,ENDPOINT}]
Comments