OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..7500
EXAMPLE
phi of the sequence includes 1, 256, 65536, 1679616, etc.; powers arise several times; a(3) = A053576(7) = 257; in sequence smoother ranges and quite large jumps arise when power of new numbers appear as phi-values.
MATHEMATICA
k=8; Do[s=EulerPhi[n]^(1/k); If[IntegerQ[s], Print[n]], {n, 1, 10000000}]
Select[Range[2*10^6], IntegerQ[Surd[EulerPhi[#], 8]]&] (* Harvey P. Dale, Oct 20 2014 *)
PROG
(PARI) is(n)=ispower(eulerphi(n), 8) \\ Charles R Greathouse IV, Apr 24 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Labos Elemer, Nov 27 2002
STATUS
approved