%I #26 Dec 31 2024 06:44:41

%S 0,6,20,24,40,46,48,60,66,68,80,86,114,116,130,132,136,150,154,156,

%T 170,172,178,190,192,198,202,204,222,226,228,240,246,260,264,282,284,

%U 288,312,318,330,332,338,350,354,356,374,378,390,394,396,402,404,408,420

%N Even evil numbers with an even digital sum.

%H Robert Israel, <a href="/A084682/b084682.txt">Table of n, a(n) for n = 1..10000</a>

%p filter:= n -> convert(convert(n,base,2),`+`)::even and convert(convert(n,base,10),`+`)::even:

%p select(filter, [seq(i,i=2..10000,2)]); # _Robert Israel_, Dec 31 2024

%t eee[n_] := And @@ EvenQ /@ {n, Count[IntegerDigits[n, 2], 1], Total[IntegerDigits[n]]};

%t Select[Range[0, 420], eee] (* _Jake L Lande_, Jun 30 2024 *)

%o (PARI) is(n)={ bitand(n,1)==0 && bitand(sumdigits(n),1)==0 && bitand(hammingweight(n),1)==0 }

%o select(is, [0..500]) \\ _Joerg Arndt_, Jun 30 2024

%Y Cf. A001969.

%Y Intersection of A054683 and A125592.

%K base,easy,nonn

%O 1,2

%A _Jason Earls_, Jun 30 2003

%E Offset changed by _Andrew Howroyd_, Sep 18 2024