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