OFFSET
1,1
MATHEMATICA
Select[Range[2, 363], Mod[EulerPhi@ #, Times @@ Map[# /. {p_, e_} :> (p - 1)^e &, FactorInteger[#]]] != 0 &] (* Michael De Vlieger, Apr 21 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 15 2019
STATUS
approved