login
Primes p that belong neither to A155140 nor to A155141.
5

%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