A188597 Odd deficient numbers whose abundancy is closer to 2 than any smaller odd deficient number.
1, 3, 9, 15, 45, 105, 315, 1155, 26325, 33705, 449295, 1805475, 10240425, 13800465, 16029405, 16286445, 21003885, 32062485, 132701205, 594397485, 815634435, 29169504045, 40833636525, 295612416135, 636988686495, 660733931655, 724387847085, 740099543085, 1707894294975, 4439852974095, 7454198513685
Offset: 1
Keywords
Links
- Giovanni Resta, Table of n, a(n) for n = 1..31 (terms < 10^13)
Crossrefs
Cf. A171929 (odd numbers whose abundancy is closer to 2 than any smaller odd number).
Programs
-
Mathematica
k = 1; minDiff = 1; Join[{k}, Table[k = k + 2; While[abun = DivisorSigma[1, k]/k; 2 - abun > minDiff || abun => 2, k = k + 2]; minDiff = 2 - abun; k, {10}]]
Extensions
a(22)-a(28) from Donovan Johnson, Apr 08 2011
Comments