OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3)=24 because 1+2+3+4+8+12-6 = 24 and 24/6 = 4.
MATHEMATICA
harsQ[n_] := Divisible[n, Plus @@ IntegerDigits[n]]; admQ[n_] := (ab = DivisorSigma[1, n] - 2 n) > 0 && EvenQ[ab] && ab/2 < n && Divisible[n, ab/2]; Select[Range[12000], harsQ[#] && admQ[#] &] (* Amiram Eldar, Oct 27 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Aug 22 2005
STATUS
approved