OFFSET
1,1
COMMENTS
EXAMPLE
17 is in the sequence because phi(15) = phi(16) = 8 and simultaneously Product_{d|15} phi(d) = Product_{d|16} phi(d) = 64.
PROG
(Magma) [p: p in PrimesInInterval(3, 10^7) | (&*[EulerPhi(d): d in Divisors(p-2)]) eq (&*[EulerPhi(d): d in Divisors(p-1)]) and EulerPhi(p-2) eq EulerPhi(p-1)]
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jaroslav Krizek, Nov 25 2014
STATUS
approved