OFFSET
1,1
COMMENTS
3*5+2=17, 7*5+2=37, 23*29+6=673,...
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
lst={}; Do[pp=Prime[n-1]; p=Prime[n]; d=p-pp; If[PrimeQ[pp*p+d], AppendTo[lst, p]], {n, 2, 7!}]; lst
Select[Partition[Prime[Range[300]], 2, 1], PrimeQ[Times@@#-#[[1]]+#[[2]]]&][[All, 2]] (* Harvey P. Dale, Sep 13 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 11 2009
EXTENSIONS
Edited by Omar E. Pol, Jan 12 2009
STATUS
approved