OFFSET
3,3
MATHEMATICA
epn[n_]:=Module[{e=EulerPhi[n]}, e/FactorInteger[e][[-1, 1]]]; Array[ epn, 100, 3] (* _Harvey P. Dale_, Apr 18 2012 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
_Labos Elemer_, Feb 21 2002
STATUS
approved