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