S001022


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

S001022

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

Cf. S001021-S001025.

nonn

T. D. Noe, May 09 2017

© Tony D Noe 2014-2017