OFFSET
1
LINKS
MATHEMATICA
Table[Boole[EulerPhi[DivisorSigma[1, n]] > EulerPhi[n]], {n, 1, 120}] (* Amiram Eldar, May 06 2022 *)
PROG
(PARI) A353681(n) = (eulerphi(sigma(n))>eulerphi(n));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 06 2022
STATUS
approved