OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
15 is a term because 15_10 = 1111_2 has 4 1's and 51_10 = 110011_2 also has 4 1's.
MAPLE
filter:= proc(n) local L, r, j;
L:= convert(n, base, 10);
r:= add(L[-j]*10^(j-1), j=1..nops(L));
r <> n and convert(convert(n, base, 2), `+`)::even and convert(convert(r, base, 2), `+`)::even
end proc:
select(filter, [$1..1000]); # Robert Israel, May 11 2021
MATHEMATICA
Reveral[n_] := FromDigits[ Reverse[ IntegerDigits[ n]]]; Select[ Range[ 296], Reveral[ # ] != # && EvenQ[ Count[ IntegerDigits[ #, 2], 1]] && EvenQ[ Count[ IntegerDigits[ Reveral[ # ], 2], 1]] &] (* Robert G. Wilson v, Feb 26 2004 *)
npeoQ[n_]:=!PalindromeQ[n]&&AllTrue[{DigitCount[n, 2, 1], DigitCount[ IntegerReverse[ n], 2, 1]}, EvenQ]; Select[Range[300], npeoQ] (* Harvey P. Dale, Apr 08 2023 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Michael Joseph Halm, Feb 25 2004
EXTENSIONS
Edited, corrected and extended by Robert G. Wilson v, Feb 26 2004
STATUS
approved