OFFSET
1,1
COMMENTS
Also numbers n such that cototient(n-2) = cototient(n+5) - 5, where cototient(x) = A051953(x).
The next term, if it exists, must be greater than 2*10^7.
The first 4 known Fermat primes > 3 from A019434 are in the sequence.
Prime terms are in the sequence A265851.
The next term if it exists is greater than 10^9. - Michel Marcus, Dec 20 2015
The next term if it exists is greater than 10^11. - Dana Jacobsen, Dec 24 2015
EXAMPLE
160 is in the sequence because phi(158) = phi(165) - 2 = 78.
MATHEMATICA
aa={}; Do[If[EulerPhi[n - 2] == EulerPhi[n + 5] - 2, AppendTo[aa, n]], {n, 1, 2 10^5}]; aa (* Vincenzo Librandi, Dec 17 2015 *)
Flatten[Position[Partition[EulerPhi[Range[66000]], 8, 1], _?(#[[1]]== #[[-1]] -2&), 1, Heads->False]]+2 (* Harvey P. Dale, Dec 31 2021 *)
PROG
(Magma) [n: n in [3..100000] | EulerPhi(n-2) eq EulerPhi(n+5)-2];
(PARI) for(n=3, 1e4, if(eulerphi(n-2) == eulerphi(n+5) - 2, print1(n, ", "))) \\ Altug Alkan, Dec 16 2015
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Jaroslav Krizek, Dec 16 2015
STATUS
approved