A180216 Base 10 representation of numbers which, in base 2, satisfy Abs(k-Reverse(k))+Reverse(Abs(k-Reverse(k)))=k.

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

Links

Table of n, a(n) for n=0..53.

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

A179697, A180204

Sequence in context: A322992 A281702 A281703 * A164302 A290727 A190883

Adjacent sequences: A180213 A180214 A180215 * A180217 A180218 A180219

Keyword

base,nonn

Author

Dylan Hamilton, Aug 15 2010

Status

approved