# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a198471
Showing 1-1 of 1

%I A198471 #24 May 09 2021 13:34:22
%S A198471 20,30,42,66,70,78,88,102,104,114,138,150,174,186,210,220,222,246,258,
%T A198471 260,272,282,294,304,308,318,330,340,354,364,366,368,380,390,402,426,
%U A198471 438,450,460,462,464,474,476,498,510,532,534,546,550,570,572,580,582,606
%N A198471 Abundant numbers that are smaller than the sum of their deficient divisors.
%C A198471 The primitive abundant number sequence (A071395) is a subsequence of this sequence.
%H A198471 Amiram Eldar, <a href="/A198471/b198471.txt">Table of n, a(n) for n = 1..10000</a>
%e A198471 a(5) = 70 since 70 is smaller than 74, which is the sum of its deficient divisors.
%t A198471 totdef[n_] := Total@Select[Divisors@n, DivisorSigma[-1, #] < 2 &]; Select[Range[570], DivisorSigma[-1, #] > 2 && # < totdef[#] &] (* _Giovanni Resta_, Jan 09 2013 *)
%o A198471 (PARI) isok(n) = (sigma(n) > 2*n) && (n < sumdiv(n, d, if (sigma(d) < 2*d, d))); \\ _Michel Marcus_, Jun 21 2019
%Y A198471 Cf. A071395, A198471, A125310.
%K A198471 nonn
%O A198471 1,1
%A A198471 _Timothy L. Tiffin_, Jan 07 2013
%E A198471 a(21)-a(50) from _Giovanni Resta_, Jan 09 2013

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE