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

0,2

Links

Table of n, a(n) for n=0..54.

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

Cf. A001969.

Intersection of A054683 and A125592.

Sequence in context: A348713 A020889 A334817 * A341298 A308324 A044970

Adjacent sequences: A084679 A084680 A084681 * A084683 A084684 A084685

Keyword

base,easy,nonn,changed

Author

Jason Earls, Jun 30 2003

Status

approved