OFFSET
1,2
COMMENTS
Equivalently, numbers m such that phi(m) (A000010) and tau(m) (A000005) both divide sigma(m) (A000203). In this case, the quotients sigma(m)/phi(m) = A023897(m) and sigma(m)/tau(m) = A102187(m).
Phi, tau and sigma are multiplicative functions and for this reason if k and q are coprime and included in this sequence then k*q is another term.
The only prime in the sequence is 3, because sigma(2)/tau(2) = 3/2 and when p is an odd prime, sigma(p)/phi(p) = (p+1)/(p-1) is an integer iff p=3 with sigma(3)/phi(3) = 4/2 = 2, and also sigma(3)/tau(3) = 4/2 = 2.
EXAMPLE
phi(30) = tau(30) = 8, sigma(30) = 72 and 72/8 = 9, hence 30 is a term.
phi(12) = 4, tau(12) = 6, sigma(12) = 28, phi(12) divides sigma(12), but tau(12) does not divide sigma(12), hence 12 is a balanced number but is not an arithmetic number, and 12 is not a term.
phi(20) = 8, tau(20) = 6, sigma(20) = 42, tau(20) divides sigma(20), but phi(20) does not divide sigma(20), hence 20 is an arithmetic number but is not a balanced number, and 20 is not a term.
MAPLE
with(numtheory): filter:= q -> (sigma(q) mod phi(q) = 0) and (sigma(q) mod tau(q) = 0) : select(filter, [$1..5000]);
MATHEMATICA
Select[Range[5000], And @@ Divisible[DivisorSigma[1, #], {DivisorSigma[0, #], EulerPhi[#]}] &] (* Amiram Eldar, Feb 28 2021 *)
PROG
(PARI) isok(m) = my(s=sigma(m)); !(s % eulerphi(m)) && !(s % numdiv(m)); \\ Michel Marcus, Mar 01 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Bernard Schott, Feb 28 2021
STATUS
approved