|
|
A065528
|
|
Numbers n such that phi(n) is a nontrivial power b^c where b > 1 and c > 1.
|
|
3
|
|
|
5, 8, 10, 12, 15, 16, 17, 20, 24, 30, 32, 34, 37, 40, 48, 51, 57, 60, 63, 64, 68, 74, 76, 80, 85, 96, 101, 102, 108, 114, 120, 125, 126, 128, 136, 160, 170, 185, 192, 197, 202, 204, 219, 240, 247, 250, 255, 256, 257, 259, 272, 273, 285, 292, 296, 304, 315, 320, 327, 333
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
What values of b can occur?
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
phi(63) = 6^2, phi(96) = 2^5.
|
|
MATHEMATICA
|
ppQ[n_] := GCD @@ Last /@ FactorInteger@ n > 1; Select[ Range@ 330, ppQ@ EulerPhi@ # &] (* Robert G. Wilson v, Jul 16 2013 *)
|
|
PROG
|
(PARI) v=[]; for(n=2, 333, if(ispower(eulerphi(n)), v=concat(v, n))); v (Hobson)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Nick Hobson, Nov 29 2006
|
|
STATUS
|
approved
|
|
|
|