OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 378 because 378 is a Smith number as well as an abundant number.
MATHEMATICA
digSum[n_] := Plus @@ IntegerDigits[n]; abSmithQ[n_] := DivisorSigma[1, n] > 2*n && Plus @@ (Last@# * digSum[First@#] & /@ FactorInteger[n]) == digSum[n]; Select[Range[4000], abSmithQ] (* Amiram Eldar, Aug 23 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Oct 10 2004
STATUS
approved