OFFSET
3,1
COMMENTS
LINKS
T. D. Noe, Table of n, a(n) for n = 3..1000
EXAMPLE
For n=46, phi(46) = 2*2*11, hence a(46) = 11.
MATHEMATICA
Table[FactorInteger[EulerPhi[n]][[-1, 1]], {n, 3, 100}] (* Vincenzo Librandi, Jan 04 2017 *)
PROG
(Magma) [Maximum(PrimeDivisors(EulerPhi(n))): n in [3..90]]; // Vincenzo Librandi, Jan 04 2017
(PARI) a(n) = vecmax(factor(eulerphi(n))[, 1]); \\ Michel Marcus, Jan 04 2017
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Feb 21 2002
STATUS
approved