OFFSET
1,1
COMMENTS
3*5-2=13, 7*11-4=73, 19*23-4=433, ...
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
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jan 11 2009
EXTENSIONS
Edited by Omar E. Pol, Jan 12 2009
STATUS
approved