A342103 Balanced numbers (A020492) that are also arithmetic numbers (A003601).

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

Author

Bernard Schott, Feb 28 2021

Keywords

• nonn

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.

Examples

			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.
		

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

Intersection of A003601 and A020492.

Cf. A000005 (tau), A000010 (phi), A000203 (sigma), A023897 (sigma/phi), A102187 (sigma/tau).

Cf. A342104, A342105, A342106.

Programs

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 *)

PARI

isok(m) = my(s=sigma(m)); !(s % eulerphi(m)) && !(s % numdiv(m)); \\ Michel Marcus, Mar 01 2021