OFFSET
0,3
EXAMPLE
143 is in the sequence because 143 = 10001111_2 and 341 = 101010101_2; both have five 1's.
MATHEMATICA
dc1Q[n_]:=Module[{rev=FromDigits[Reverse[IntegerDigits[n]]]}, DigitCount[n, 2, 1] ==DigitCount[rev, 2, 1]]; Select[Range[0, 250], dc1Q] (* Harvey P. Dale, Apr 03 2011 *)
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Aug 18 2003
STATUS
approved