A084682 Even evil numbers with an even digital sum.

0, 6, 20, 24, 40, 46, 48, 60, 66, 68, 80, 86, 114, 116, 130, 132, 136, 150, 154, 156, 170, 172, 178, 190, 192, 198, 202, 204, 222, 226, 228, 240, 246, 260, 264, 282, 284, 288, 312, 318, 330, 332, 338, 350, 354, 356, 374, 378, 390, 394, 396, 402, 404, 408, 420

Offset: 1

Author

Jason Earls, Jun 30 2003

Keywords

• base
• easy
• nonn

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A001969.

Intersection of A054683 and A125592.

Programs

Maple

filter:= n -> convert(convert(n,base,2),`+`)::even and convert(convert(n,base,10),`+`)::even:
select(filter, [seq(i,i=2..10000,2)]); # Robert Israel, Dec 31 2024

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 *)

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

Extensions

Offset changed by Andrew Howroyd, Sep 18 2024