OFFSET
1,1
COMMENTS
3*7-10=11, 3*7+10=31,...
MATHEMATICA
lst={}; Do[p=Prime[n]; If[PrimeQ[(p-2)*(p+2)-2*p]&&PrimeQ[(p-2)*(p+2)+2*p], AppendTo[lst, p]], {n, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 18 2009
STATUS
approved