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,1

Comments

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

Links

Table of n, a(n) for n=1..45.

Mathematica

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

Crossrefs

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

Sequence in context: A061239 A072023 A217614 * A211116 A107288 A335732

Adjacent sequences: A158720 A158721 A158722 * A158724 A158725 A158726

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Mar 24 2009

Status

approved