%I #4 Apr 17 2012 17:21:56
%S 11,31,37,41,43,61,67,71,83,89,97,101,107,127,131,137,139,151,163,167,
%T 179,181,191,193,199,251,271,277,281,293,307,311,313,317,331,347,359,
%U 367,379,383,389,397,401,421,431,433,443,449,457,461,463,467,479,487
%N Primes which are not in A173970 or A173971.
%t lst={}; Do[p=Prime[n]; If[PrimeQ[2*p-Prime[n+1]], AppendTo[lst,p]], {n,8!}]; lst1=lst; lst={}; Do[p=Prime[n]; If[PrimeQ[2*p+Prime[n+1]], AppendTo[lst,p]],{n,8!}]; lst2=lst; Complement[Prime[Range[200]], lst1, lst2]
%Y Cf. A173970, A173971.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Mar 03 2010
|