A098835 Smith abundant numbers.

378, 438, 576, 588, 636, 648, 654, 666, 690, 728, 762, 852, 1086, 1284, 1376, 1626, 1736, 1776, 1842, 1872, 1908, 1952, 1962, 2286, 2484, 2556, 2576, 2688, 2934, 2944, 2958, 2964, 2970, 3138, 3168, 3174, 3246, 3258, 3294, 3366, 3390, 3564, 3690, 3852

Offset: 1

Author

Shyam Sunder Gupta, Oct 10 2004

Keywords

• base
• nonn

Examples

			a(1) = 378 because 378 is a Smith number as well as an abundant number.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Shyam Sunder Gupta, Smith Numbers, Exploring the Beauty of Fascinating Numbers, Springer (2025) Ch. 4, 127-157.

Crossrefs

Intersection of A005101 and A006753.

Programs

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 *)