OFFSET
1,2
COMMENTS
The corresponding record values of phi^e are 1, 2, 4, 6, 8, 10, 12, 16, 24, ... (see the link for more values).
REFERENCES
József Sándor, On an exponential totient function, Studia Univ. Babees-Bolyai, Math., Vol. 41 (1996), pp. 91-94.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..57
Amiram Eldar, Table of n, a(n), A072911(a(n)) for n = 1..57
László Tóth, On certain arithmetic functions involving exponential divisors, Annales Univ. Sci. Budapest., Sect. Comp., Vol. 27 (2004), pp. 285-294.
MATHEMATICA
f[n_] := Times@@EulerPhi[FactorInteger[n][[All, 2]]]; fm=0; s={}; Do[f1=f[n]; If[f1>fm, AppendTo[s, n]; fm=f1], {n, 1, 10^6}]; s
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 19 2019
STATUS
approved