A055971 Numbers k such that k | (sigma(k) - d(k) - phi(k)) and k is not a prime or twice a prime.

1, 198, 294, 20280, 195320, 1782240, 3038720, 12190720

Offset

1,2

Comments

a(9) > 10^10, if it exist. - Amiram Eldar, Apr 29 2024

Links

Table of n, a(n) for n=1..8.

Mathematica

Do[ If[ And[ !PrimeQ[ n ], !PrimeQ[ n/2 ] ], If[ Mod[ DivisorSigma[ 1, n ]-DivisorSigma[ 0, n ]- EulerPhi[ n ], n ]==0, Print[ n ] ] ], {n, 1, 10^8} ]

Prog

(PARI) is1(k) = {my(f = factor(k)); !((sigma(f) - numdiv(f) - eulerphi(f)) % k); }
is(k) = !isprime(k) && !(!(k%2) && isprime(k/2)) && is1(k); \\ Amiram Eldar, Apr 29 2024

Crossrefs

Cf. A000005 (d(n)), A000010 (phi), A000203 (sigma).

Sequence in context: A248534 A334403 A238230 * A075293 A083264 A202526

Adjacent sequences: A055968 A055969 A055970 * A055972 A055973 A055974

Keyword

nonn,more,changed

Author

Robert G. Wilson v, Jul 19 2000

Status

approved