OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Range[2, 281], Mod[EulerPhi[#], If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]] ] &@ Abs[#]] == 0 &] (* Michael De Vlieger, Mar 12 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 12 2021
STATUS
approved