Smaller twin prime p such that phi(p-1) < phi(p+1), where phi is Euler’s totient function.
3, 2381, 3851, 14561, 17291, 20021, 20231, 26951, 34511, 41231, 47741, 50051, 52361, 55931, 57191, 65171, 67211, 67271, 70841, 82811, 87011, 98561, 101501, 101531, 108461, 117041, 119771, 126491, 129221, 134681, 136991, 142871, 145601, 150221, 156941, 165551
1
Garcia et al. exclude 3 for technical reasons.
T. D. Noe, Plot of 1000 terms
T. D. Noe, Table of 1000 terms
Stephan Ramon Garcia, Elvis Kahoro, and Florian Luca, Primitive root discrepancy for twin primes, arXiv 1705.02485 (May 06 2017)
(Mma) t = {}; n = 0; While[Length[t] < 100, n++; p = Prime[n]; If[PrimeQ[p + 2] && EulerPhi[p - 1] < EulerPhi[p + 1], AppendTo[t, p]]]; t
nonn
T. D. Noe, May 09 2017