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