OFFSET
1,1
COMMENTS
The term 343 is the first one that does not occur in A070160, and 625 is the second.
MATHEMATICA
Select[Range[5300], And[CompositeQ@ #, Mod[EulerPhi[#], Times @@ If[# < 2, 0, # Total[#2/#1 & @@@ FactorInteger[#]] ]] == 0] &] (* Michael De Vlieger, Mar 12 2021 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Mar 12 2021
STATUS
approved