|
%I #16 Jan 13 2022 04:22:42
%S 12,18,20,30,40,42,48,60,66,70,72,78,80,84,88,90,100,102,104,108,112,
%T 120,126,132,138,140,144,150,160,162,168,176,180,186,192,196,198,200,
%U 204,208,210,220,222,228,234,240,252,258,260,264,270,272,276,280,282,288
%N Numbers which are both abundant (A005101) and anti-abundant (A192268).
%C This is to abundant numbers as A192818 is to deficient numbers.
%H Amiram Eldar, <a href="/A192819/b192819.txt">Table of n, a(n) for n = 1..10000</a>
%F A005101 INTERSECTION A192268.
%t q[n_] := Total[Cases[Range[2, n - 1], _?(Abs[Mod[n, #] - #/2] < 1 &)]] > n && DivisorSigma[1, n] > 2*n; Select[Range[300], q] (* _Amiram Eldar_, Jan 13 2022 after _Michael De Vlieger_ at A066417 *)
%Y Cf. A005101, A066417, A192268, A192818.
%K nonn
%O 1,1
%A _Jonathan Vos Post_, Jul 11 2011
%E Missing term a(4) inserted and more terms added by _Amiram Eldar_, Jan 13 2022
|
