OFFSET
1,2
MATHEMATICA
eee[n_] := And @@ EvenQ /@ {n, Count[IntegerDigits[n, 2], 1], Total[IntegerDigits[n]]};
Select[Range[0, 420], eee] (* Jake L Lande, Jun 30 2024 *)
PROG
(PARI) is(n)={ bitand(n, 1)==0 && bitand(sumdigits(n), 1)==0 && bitand(hammingweight(n), 1)==0 }
select(is, [0..500]) \\ Joerg Arndt, Jun 30 2024
CROSSREFS
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jun 30 2003
EXTENSIONS
Offset changed by Andrew Howroyd, Sep 18 2024
STATUS
approved