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,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

Intersection of A005101 and A006753.

Sequence in context: A350183 A045197 A349539 * A134602 A268373 A030029

Adjacent sequences: A098832 A098833 A098834 * A098836 A098837 A098838

Keyword

base,nonn

Author

Shyam Sunder Gupta, Oct 10 2004

Status

approved