A126104 Numbers n not divisible by 6 such that sigma(n) > 3n.
40040, 61600, 72800, 80080, 104720, 117040, 123200, 123760, 138320, 141680, 145600, 154000, 160160, 172480, 200200, 209440, 215600, 234080, 246400, 247520, 254800, 261800, 276640, 280280, 283360, 291200, 292600, 308000
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
Programs
-
Mathematica
Select[Range[310000], Mod[#, 6] > 1 && DivisorSigma[1, #] > 3# &] (* Amiram Eldar, Dec 03 2019 *)