A206036 Numbers m such that sigma(m) = sigma(k) has solution for distinct numbers m and k.

6, 10, 11, 14, 15, 16, 17, 20, 21, 23, 24, 25, 26, 28, 30, 31, 33, 34, 35, 38, 39, 40, 41, 42, 44, 46, 47, 48, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 62, 63, 65, 66, 68, 69, 70, 71, 74, 75, 76, 77, 78, 79, 80, 82, 83, 84, 85, 86, 87, 88, 89, 90, 92, 93, 94

Offset: 1

Author

Jaroslav Krizek, Feb 03 2012

Keywords

• nonn

Examples

			6 and 11 are in the sequence because sigma(6) = sigma(11) = 12.
7 is not on the list because sigma(7) = 8 and there is no other integer for which sigma(n) = 8.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000
• Max Alekseyev, PARI/GP Scripts for Miscellaneous Math Problems (invphi.gp).

Crossrefs

Complement of A211656.

Cf. A000203, A054973, A066074, A158913.

Programs

Mathematica

max = 9000; sigmaList = Table[DivisorSigma[1, n], {n, Prime[PrimePi[max]]}]; Select[Range[Floor[Sqrt[max]]], Count[sigmaList, sigmaList[[#]]] > 1 &] (* Alonso del Arte, Feb 06 2012 *)

PARI

is(k) = invsigmaNum(sigma(k)) > 1; \\ Amiram Eldar, Dec 15 2024, using Max Alekseyev's invphi.gp