OFFSET
1,2
MATHEMATICA
Select[Range[30], Divisible[DivisorSigma[0, #], EulerPhi[#]] &] (* Amiram Eldar, May 15 2024 *)
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
STATUS
approved