OFFSET
1,1
LINKS
John Cerkan, Table of n, a(n) for n = 1..10000
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
Vladimir Joseph Stephan Orlovsky, Jan 21 2009
STATUS
approved