login
A342103
Balanced numbers (A020492) that are also arithmetic numbers (A003601).
4
1, 3, 6, 14, 15, 30, 35, 42, 56, 70, 78, 105, 140, 168, 190, 210, 248, 264, 270, 357, 418, 420, 570, 594, 616, 630, 714, 744, 812, 840, 910, 1045, 1240, 1254, 1485, 1672, 1848, 2090, 2214, 2376, 2436, 2580, 2730, 2970, 3080, 3135, 3339, 3596, 3720, 3828, 3956, 4064, 4180
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
Intersection of A003601 and A020492.
Cf. A000005 (tau), A000010 (phi), A000203 (sigma), A023897 (sigma/phi), A102187 (sigma/tau).
Sequence in context: A295292 A053365 A101034 * A084168 A075390 A118523
KEYWORD
nonn
AUTHOR
Bernard Schott, Feb 28 2021
STATUS
approved