login
A098835
Smith abundant numbers.
1
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,1
LINKS
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
Intersection of A005101 and A006753.
Sequence in context: A350183 A045197 A349539 * A134602 A268373 A030029
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Oct 10 2004
STATUS
approved