|
| |
| |
|
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
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
| Cf. A153213, A049282, A155139, A155140, A155141
Sequence in context: A076408 A083800 A006353 * A155552 A143988 A129806
Adjacent sequences: A155139 A155140 A155141 * A155143 A155144 A155145
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Vladimir Orlovsky (4vladimir(AT)gmail.com), Jan 21 2009
|
| |
|
|
