OFFSET
1
LINKS
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
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 06 2022
STATUS
approved