%I #10 Aug 23 2020 02:10:12
%S 378,438,576,588,636,648,654,666,690,728,762,852,1086,1284,1376,1626,
%T 1736,1776,1842,1872,1908,1952,1962,2286,2484,2556,2576,2688,2934,
%U 2944,2958,2964,2970,3138,3168,3174,3246,3258,3294,3366,3390,3564,3690,3852
%N Smith abundant numbers.
%H Amiram Eldar, <a href="/A098835/b098835.txt">Table of n, a(n) for n = 1..10000</a>
%e a(1) = 378 because 378 is a Smith number as well as an abundant number.
%t 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 *)
%Y Intersection of A005101 and A006753.
%K base,nonn
%O 1,1
%A _Shyam Sunder Gupta_, Oct 10 2004
