A349761 Numbers k such that sigma(k) = A000203(k) is an abundant number (A005101) and phi(k) = A000010(k) is a deficient number (A005100).
6, 10, 11, 15, 17, 20, 22, 23, 24, 30, 34, 40, 46, 47, 51, 53, 59, 60, 68, 69, 80, 83, 85, 92, 94, 96, 102, 106, 107, 118, 120, 131, 136, 137, 138, 141, 149, 160, 166, 167, 170, 173, 177, 179, 188, 191, 204, 214, 227, 233, 235, 236, 239, 240, 249, 251, 255, 257
Offset: 1
Keywords
Examples
6 is a term since sigma(6) = 12 is an abundant number, sigma(12) = 28 > 2*12 = 24, and phi(6) = 2 is a deficient number, sigma(2) = 3 < 2*2 = 4.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..10000
- József Sándor, Selected Chapters of Geometry, Analysis and Number Theory, 2005, pp. 132-134.
Programs
-
Mathematica
abQ[n_] := DivisorSigma[1, n] > 2*n; defQ[n_] := DivisorSigma[1, n] < 2*n; q[n_] := abQ[DivisorSigma[1, n]] && defQ[EulerPhi[n]]; Select[Range[250], q]
Comments