Smaller twin prime p such that phi(p-1) >= phi(p+1), where phi is Euler’s totient function.
5, 11, 17, 29, 41, 59, 71, 101, 107, 137, 149, 179, 191, 197, 227, 239, 269, 281, 311, 347, 419, 431, 461, 521, 569, 599, 617, 641, 659, 809, 821, 827, 857, 881, 1019, 1031, 1049, 1061, 1091, 1151, 1229, 1277, 1289, 1301, 1319, 1427, 1451, 1481, 1487, 1607
1
This is the union of S001021 and S001023.
T. D. Noe, Plot of 1004 terms
T. D. Noe, Table of 1004 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 10 2017