OFFSET
1,1
EXAMPLE
2*3+(3-2) = 2*3+1 = 7, 23*29+(29-23) = 23*29+6 = 673.
MATHEMATICA
a = {}; Do[p1 = Prime[n]; p2 = Prime[n + 1]; p = p1*p2 + (p2 - p1); p3 = p2 - p1; If[PrimeQ[p], AppendTo[a, p]], {n, 10^2}]; a
(* Alternate: *) Select[(#[[1]] #[[2]]+#[[2]]-#[[1]])&/@Partition[ Prime[Range[300]], 2, 1], PrimeQ] (* Harvey P. Dale, Dec 03 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 21 2008
EXTENSIONS
Additional terms from Harvey P. Dale, Dec 03 2010
STATUS
approved