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,2

Links

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

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

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

Author

Jason Earls, Jun 30 2003

Extensions

Offset changed by Andrew Howroyd, Sep 18 2024

Status

approved