|
%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
|
