%I #9 Sep 11 2019 16:45:46
%S 3,2381,3851,14561,17291,20021,20231,26951,34511,41231,47741,50051,
%T 52361,55931,57191,65171,67211,67271,70841,82811,87011,98561,101501,
%U 101531,108461,117041,119771,126491,129221,134681,136991,142871,145601,150221,156941,165551,166601
%N Lesser of twin primes for which phi(p-1) < phi(p+1).
%H Amiram Eldar, <a href="/A286715/b286715.txt">Table of n, a(n) for n = 1..10000</a>
%H Stephan Ramon Garcia, Elvis Kahoro, Florian Luca, <a href="https://arxiv.org/abs/1705.02485">Primitive root discrepancy for twin primes</a>, arXiv:1705.02485 [math.NT], 2017.
%t s = {}; p = 3; Do[q = NextPrime[p]; If[q - p != 2, p = q; Continue[]]; If[EulerPhi[p + 1] > EulerPhi[p - 1], AppendTo[s, p]]; p = q, {15500}]; s (* _Amiram Eldar_, Sep 11 2019 *)
%o (PARI) lista(nn) = forprime(p=2, nn, if (isprime(p+2) && (eulerphi(p-1) < eulerphi(p+1)), print1(p, ", ")));
%Y Cf. A001359, A006512, A008330, A286714.
%K nonn
%O 1,1
%A _Michel Marcus_, May 13 2017