login
A353682
a(n) = 1 if phi(sigma(n)) >= phi(n), otherwise 0.
6
1, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 0, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 1
OFFSET
1
FORMULA
a(n) = [A353636(n) >= 0], where [ ] is the Iverson bracket.
a(n) = A353637(n) + A353681(n).
MATHEMATICA
Table[Boole[EulerPhi[DivisorSigma[1, n]] >= EulerPhi[n]], {n, 1, 120}] (* Amiram Eldar, May 06 2022 *)
PROG
(PARI) A353682(n) = (eulerphi(sigma(n))>=eulerphi(n));
CROSSREFS
Characteristic function of A353684, while its complement A353686 gives the positions of zeros.
Sequence in context: A244611 A189289 A270885 * A359247 A127972 A103451
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 06 2022
STATUS
approved