A098835 - OEIS

%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