A158722 - OEIS

%I #2 Mar 31 2012 12:38:20

%S 3,7,11,19,29,37,41,43,47,61,71,79,83,89,97,101,107,109,127,131,137,

%T 139,151,157,163,173,191,199,223,227,229,239,241,251,257,263,271,277,

%U 281,283,293,311,313,317,331,349,353,367,373,379,383,389,397,401,409,419

%N Primes p which are not in A158720 and A158721.

%t lst={};Do[p=Prime[n];If[ !PrimeQ[Floor[p/3]+p]&&!PrimeQ[Ceiling[p/3]+p],AppendTo[lst,p]],{n,5!}];lst

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

%K nonn

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Mar 24 2009