login
A180216
Base 10 representation of numbers which, in base 2, satisfy Abs(k-Reverse(k))+Reverse(Abs(k-Reverse(k)))=k.
0
0, 2, 6, 10, 14, 18, 30, 34, 42, 54, 62, 66, 90, 102, 126, 130, 135, 146, 170, 186, 198, 214, 238, 254, 258, 279, 306, 330, 378, 390, 438, 462, 510, 514, 546, 567, 594, 626, 650, 682, 730, 762, 774, 806, 854, 886, 910, 942, 990, 1022, 1026, 1083, 1122, 1143
OFFSET
0,2
MATHEMATICA
rev[x_, b_] := FromDigits[Reverse[IntegerDigits[x, b]], b]; revadd[x_, b_] := rev[x, b] + x; revsub[x_, b_] := Abs[x - rev[x, b]]; a = {}; Do [If[revadd[revsub[ x, n], n] == x, AppendTo[a, x]], {x, START, FINISH}]; a
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Dylan Hamilton, Aug 15 2010
STATUS
approved