OFFSET
1,1
COMMENTS
3*5+4=19 prime, 5*7+6=41 prime, 29*31+30=929 prime, ...
MATHEMATICA
lst={}; Do[p1=Prime[n]; p2=Prime[n+1]; If[p2-p1==2, a=p1*p2+(p1+1); If[PrimeQ[a], AppendTo[lst, p1]]], {n, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Dec 25 2008
STATUS
approved