This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A084682 #26 Dec 31 2024 06:44:41
%S A084682 0,6,20,24,40,46,48,60,66,68,80,86,114,116,130,132,136,150,154,156,
%T A084682 170,172,178,190,192,198,202,204,222,226,228,240,246,260,264,282,284,
%U A084682 288,312,318,330,332,338,350,354,356,374,378,390,394,396,402,404,408,420
%N A084682 Even evil numbers with an even digital sum.
%H A084682 Robert Israel, <a href="/A084682/b084682.txt">Table of n, a(n) for n = 1..10000</a>
%p A084682 filter:= n -> convert(convert(n,base,2),`+`)::even and convert(convert(n,base,10),`+`)::even:
%p A084682 select(filter, [seq(i,i=2..10000,2)]); # _Robert Israel_, Dec 31 2024
%t A084682 eee[n_] := And @@ EvenQ /@ {n, Count[IntegerDigits[n, 2], 1], Total[IntegerDigits[n]]};
%t A084682 Select[Range[0, 420], eee] (* _Jake L Lande_, Jun 30 2024 *)
%o A084682 (PARI) is(n)={ bitand(n,1)==0 && bitand(sumdigits(n),1)==0 && bitand(hammingweight(n),1)==0 }
%o A084682 select(is, [0..500]) \\ _Joerg Arndt_, Jun 30 2024
%Y A084682 Cf. A001969.
%Y A084682 Intersection of A054683 and A125592.
%K A084682 base,easy,nonn
%O A084682 1,2
%A A084682 _Jason Earls_, Jun 30 2003
%E A084682 Offset changed by _Andrew Howroyd_, Sep 18 2024