login
A084682
Even evil numbers with an even digital sum.
0
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
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
KEYWORD
base,easy,nonn
AUTHOR
Jason Earls, Jun 30 2003
EXTENSIONS
Offset changed by Andrew Howroyd, Sep 18 2024
STATUS
approved