|
%I #11 Dec 09 2019 09:20:03
%S 42,56,70,84,88,100,104,112,138,140,162,168,174,176,186,196,200,208,
%T 220,224,234,276,280,304,324,336,342,348,352,364,372,392,400,416,426,
%U 440,448,460,468,522,532,546,552,558,560,570,572,580,608,618,620,642,644
%N Abundant odious numbers. (Abundant numbers that have an odd number of ones in their binary representation.)
%H Amiram Eldar, <a href="/A124656/b124656.txt">Table of n, a(n) for n = 1..10000</a>
%e 56 is in the sequence because the sum of its divisors, 1 + 2 + 4 + 7 + 8 + 14 + 28 + 56 = 120 > 2*56 and its base-2 representation (111000) has an odd number of 1's.
%p with(numtheory): a:=proc(n) local n2: n2:=convert(n,base,2): if add(n2[j],j=1..nops(n2)) mod 2 = 1 and sigma(n)>2*n then n else fi end: seq(a(n),n=1..750); # _Emeric Deutsch_, Jan 01 2007
%t Select[Range[650], OddQ @ DigitCount[#, 2][[1]] && DivisorSigma[1, #] > 2# &] (* _Amiram Eldar_, Dec 09 2019 *)
%Y Intersection of A005101 (abundant numbers) and A000069 (odious numbers).
%K base,nonn
%O 1,1
%A _Tanya Khovanova_, Dec 27 2006
%E More terms from _Emeric Deutsch_, Jan 01 2007
|
