%I
%S 13,31,73,103,181,193,433,463,571,643,661,823,1021,1291,1621,1723,
%T 2083,2143,2341,2593,2713,3001,3253,3331,3361,3541,4231,4243,4423,
%U 4933,5233,5653,5881,6553,6571,6781,6871,6961,7951,8293,9283,9343,9433,9631,9931
%N Greater of twin primes in A158720.
%C If prime number from sequence A158720 is twin prime, it always (?) Greater of twin primes, and none (?) of Lesser of twin primes.
%t lst={};Do[p=Prime[n];If[PrimeQ[Floor[p/3]+p],If[PrimeQ[p2],AppendTo[lst,p]]],{n,7!}];lst
%Y Cf. A158708, A158709, A158710, A158711, A158712, A158713, A158714, A158719, A158720, A158721, A158722
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 24 2009
