OFFSET
1,1
COMMENTS
The first 4 known Fermat primes > 3 from A019434 are in the sequence.
EXAMPLE
257 is a term because phi(257-3) = phi(254) = 126 = phi(phi(257-2)-1) = phi(phi(255)-1) = phi(128-1) = phi(127).
MATHEMATICA
Select[Prime@ Range[3, 10^6], EulerPhi[# - 3] == EulerPhi[EulerPhi[# - 2] - 1] &] (* Michael De Vlieger, Apr 12 2016 *)
PROG
(Magma) [n: n in [4..5*10^7] | IsPrime(n) and EulerPhi(n-3) eq EulerPhi(EulerPhi(n-2)-1)]
(PARI) lista(nn) = forprime(p=5, nn, if(eulerphi(p-3) == eulerphi(eulerphi(p-2)-1), print1(p, ", "))); \\ Altug Alkan, Apr 12 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Apr 12 2016
STATUS
approved