[go: up one dir, main page]

login
A155142
Primes p that belong neither to A155140 nor to A155141.
5
5, 13, 23, 29, 31, 41, 53, 59, 67, 71, 79, 103, 113, 131, 139, 149, 151, 157, 167, 173, 179, 193, 211, 229, 239, 241, 257, 271, 283, 311, 337, 359, 367, 373, 379, 383, 401, 409, 419, 421, 463, 479, 491, 499, 503, 509, 521, 563, 599, 601, 607, 617, 641, 643
OFFSET
1,1
MATHEMATICA
<<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
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved