A174865 Odd abundant numbers whose abundance is even.
945, 1575, 2205, 2835, 3465, 4095, 4725, 5355, 5775, 5985, 6435, 6615, 6825, 7245, 7425, 7875, 8085, 8415, 8505, 8925, 9135, 9555, 9765, 10395, 11655, 12285, 12705, 12915, 13545, 14175, 14805, 15015, 15435, 16065, 16695, 17325, 17955, 18585
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1989 from T. D. Noe)
Programs
-
Mathematica
goodQ[n_] := Module[{ds=DivisorSigma[1,n]}, ds>2n && EvenQ[ds]]; Select[Range[1,1000000,2], goodQ]
Comments