login
Abundant evil numbers. (Abundant numbers that have an even number of ones in their binary representation).
1

%I #6 Dec 09 2019 09:19:53

%S 12,18,20,24,30,36,40,48,54,60,66,72,78,80,90,96,102,108,114,120,126,

%T 132,144,150,156,160,180,192,198,204,210,216,222,228,240,246,252,258,

%U 260,264,270,272,282,288,294,300,306,308,312,318,320,330,340,350,354

%N Abundant evil numbers. (Abundant numbers that have an even number of ones in their binary representation).

%H Amiram Eldar, <a href="/A124626/b124626.txt">Table of n, a(n) for n = 1..10000</a>

%t Select[Range[500], EvenQ[Plus @@ IntegerDigits[ #, 2]] && DivisorSigma[1, # ] > 2# &]

%Y Intersection of A005101 (abundant numbers) and A001969 (evil numbers).

%K nonn,base

%O 1,1

%A _Tanya Khovanova_, Dec 27 2006, Jun 23 2007