A078170 Numbers k such that phi(k) is a perfect tenth power.
1, 2, 1285, 2048, 2056, 2176, 2560, 2570, 2720, 3072, 3084, 3264, 3840, 4080, 1114129, 2097152, 2097184, 2105344, 2228224, 2228258, 2236928, 2621440, 2621480, 2631680, 2785280, 2796160, 3145728, 3145776, 3158016, 3342336
Offset: 1
Keywords
Examples
phi of the sequence includes 1, 1024, 1048576,.. etc.; powers emerge several times; a(3) = A053576(10) = 1285; in sequence smoother ranges and quite large jumps alternate when power of new numbers appear as phi-values.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..2250
Crossrefs
Programs
-
Mathematica
k=10; Do[s=EulerPhi[n]^(1/k); If[IntegerQ[s], Print[n]], {n, 1, 10000000}]
-
PARI
is(n)=ispower(eulerphi(n),10) \\ Charles R Greathouse IV, Apr 24 2020