%I #8 Jul 25 2016 13:34:09
%S 5,13,23,29,31,41,53,59,67,71,79,103,113,131,139,149,151,157,167,173,
%T 179,193,211,229,239,241,257,271,283,311,337,359,367,373,379,383,401,
%U 409,419,421,463,479,491,499,503,509,521,563,599,601,607,617,641,643
%N Primes p that belong neither to A155140 nor to A155141.
%H John Cerkan, <a href="/A155142/b155142.txt">Table of n, a(n) for n = 1..10000</a>
%t <<NumberTheory`NumberTheoryFunctions` lst={};Do[p=Prime[n];If[SquareFreeQ[p-4]&&SquareFreeQ[p+4],NULL,If[ !SquareFreeQ[p-4]&&!SquareFreeQ[p+4],NULL,AppendTo[lst,p]]],{n,6!}];lst
%Y Cf. A153213, A049282, A155139, A155140, A155141.
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, Jan 21 2009