A229089 Numbers n such that sigma(n) mod n < antisigma(n) mod n, where sigma(n) = A000203(n) = sum of divisor of n, antisigma(n) = A024816(n) = sum of non-divisors of n.

3, 5, 6, 7, 9, 11, 13, 14, 17, 18, 19, 20, 22, 23, 25, 26, 27, 28, 29, 31, 33, 34, 35, 36, 37, 38, 39, 41, 43, 46, 47, 48, 49, 51, 53, 54, 55, 56, 57, 58, 59, 61, 62, 65, 66, 67, 69, 70, 71, 72, 73, 74, 77, 78, 79, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 93

Offset: 1

Author

Jaroslav Krizek, Oct 24 2013

Keywords

• nonn

Comments

Numbers n such that A229087(n) = A000203(n) mod n - A024816(n) mod n =A054024(n) - A229110(n) < 0.

Complement of union A229088 and A229090 with respect to A000027, where

A229088 = numbers n such that sigma(n) mod n = antisigma(n) mod n,

A229090 = numbers n such that sigma(n) mod n > antisigma(n) mod n.

Examples

			Number 11 is in sequence because sigma(11) mod 11 = 12 mod 11 = 1 < antisigma(11) mod 11 = 54 mod 11 = 10.
		

Links

• Jaroslav Krizek, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A000203 (sigma(n)), A024816 (antisigma(n)), A229110 (antisigma(n) mod n), A054024 (sigma(n) mod n).

Programs

Mathematica

Select[Range[100],Mod[Total[Complement[Range[#],Divisors[#]]],#]> Mod[ DivisorSigma[ 1,#],#]&] (* Harvey P. Dale, Jan 24 2022 *)