OFFSET
1,1
MATHEMATICA
Select[Range[160], EulerPhi[DivisorSigma[1, #]] > EulerPhi[#] &] (* Amiram Eldar, May 06 2022 *)
CROSSREFS
Positions of strictly positive terms in A353636.
KEYWORD
nonn
AUTHOR
Antti Karttunen, May 06 2022
STATUS
approved