OFFSET
1,2
COMMENTS
Indices of odd terms in this sequence are 1, 27, 81, 135, 189, 297, 343, 351, 405, 459, 513, 621, 625, 675, 783, ...
EXAMPLE
a(3) = 6 because 3^3 divides phi(6^6) = 15552.
MATHEMATICA
Table[k = 1; While[! Divisible[EulerPhi[k^k], n^n], k++]; k, {n, 60}] (* Michael De Vlieger, Aug 21 2016 *)
PROG
(PARI) a(n) = {my(k = 1); while(eulerphi(k^k) % n^n, k++); k; }
CROSSREFS
KEYWORD
nonn
AUTHOR
Altug Alkan, Aug 17 2016
STATUS
approved