A128702 Highly abundant numbers (A002093) that are not Harshad numbers (A005349).
16, 96, 168, 47880, 85680, 95760, 388080, 458640, 526680, 609840, 637560, 776160, 887040, 917280, 942480, 1219680, 1244880, 1607760, 1774080, 2439360, 3880800, 5266800, 5569200, 6098400, 7761600, 9424800, 12196800, 17907120, 20900880
Offset: 1
Examples
The third highly abundant number that is not a Harshad number is 168. So a(3)=168.
Links
- Giovanni Resta, Table of n, a(n) for n = 1..400
- L. Alaoglu and P. Erdős, On highly composite and similar numbers, Trans. Amer. Math. Soc., 56 (1944), 448-469.
- Wikipedia, Highly Abundant Numbers.
- Wikipedia, Harshad Number.
Crossrefs
Programs
-
Mathematica
hadata1=FoldList[Max,1,Table[DivisorSigma[1,n],{n,2,10^6}]]; data1=Flatten[Position[hadata1,#,1,1]&/@Union[hadata1]];HarshadQ[k_]:=If[IntegerQ[ k/(Plus @@ IntegerDigits[ k ])],True,False];Select[data1,!HarshadQ[ # ] &]
Formula
Extensions
a(16)-a(29) from Donovan Johnson, May 09 2009
Comments