OFFSET
1,1
COMMENTS
Apparently all the abundant numbers with even abundance < 10 are admirable (checked for the first 60 terms). Of the 4 known numbers whose abundance is 10 (A223609), only the first, 40, is admirable. - Amiram Eldar, Nov 07 2019
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..60
MATHEMATICA
aQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && EvenQ[ab] && ab < 10 && ab/2 < n && Divisible[n, ab/2]; Select[Range[10^4], aQ] (* Amiram Eldar, Nov 07 2019 *)
PROG
(PARI) for(n=1, 10^9, ap=sigma(n)-2*n; if(ap>0 && ap<10 && (ap%2)==0, d=ap/2; if(d!=n && (n%d)==0, print1(n", ")))) - Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Aug 14 2005
EXTENSIONS
More terms from Herman Jamke (hermanjamke(AT)fastmail.fm), Mar 30 2008
a(36)-a(38) from Amiram Eldar, Nov 07 2019
STATUS
approved