A204826 Deficient numbers with odd sum of divisors.
1, 2, 4, 8, 9, 16, 25, 32, 49, 50, 64, 81, 98, 121, 128, 169, 225, 242, 256, 289, 338, 361, 441, 484, 512, 529, 578, 625, 676, 722, 729, 841, 961, 1024, 1058, 1089, 1156, 1225, 1250, 1369, 1444, 1521, 1681, 1682, 1849, 1922, 2025, 2048, 2116, 2209, 2312, 2401
Offset: 1
Keywords
Examples
Deficient number 16 is in sequence because sigma(16) = 13 (odd number).
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- Eric Weisstein's World of Mathematics, Deficient Number
Crossrefs
Programs
-
Mathematica
aQ[n_] := OddQ[(s = DivisorSigma[1, n])] && s < 2n; Select[Range[2401], aQ] (* Amiram Eldar, Sep 02 2019 *)
Comments