login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A098835 Smith abundant numbers. 1

%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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 16:05 EDT 2024. Contains 371254 sequences. (Running on oeis4.)