A158723 Greater of twin primes in A158720.

13, 31, 73, 103, 181, 193, 433, 463, 571, 643, 661, 823, 1021, 1291, 1621, 1723, 2083, 2143, 2341, 2593, 2713, 3001, 3253, 3331, 3361, 3541, 4231, 4243, 4423, 4933, 5233, 5653, 5881, 6553, 6571, 6781, 6871, 6961, 7951, 8293, 9283, 9343, 9433, 9631, 9931

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Mar 24 2009

Keywords

• nonn

Comments

If prime number from sequence A158720 is twin prime, it always (?) Greater of twin primes, and none (?) of Lesser of twin primes.

Crossrefs

Cf. A158708, A158709, A158710, A158711, A158712, A158713, A158714, A158719, A158720, A158721, A158722

Programs

Mathematica

lst={};Do[p=Prime[n];If[PrimeQ[Floor[p/3]+p],If[PrimeQ[p-2],AppendTo[lst,p]]],{n,7!}];lst