A154551 - OEIS

A154551

Greater of two consecutive primes, p < q, such that p*q-p+q is prime.

3, 5, 7, 29, 37, 67, 89, 97, 151, 181, 241, 257, 269, 271, 359, 373, 421, 439, 457, 509, 563, 571, 577, 593, 659, 709, 739, 769, 853, 947, 991, 997, 1117, 1129, 1193, 1201, 1291, 1297, 1321, 1399, 1423, 1471, 1499, 1511, 1579, 1627, 1657, 1721, 1753, 1907

(list; graph; refs; listen; history; text; internal format)

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

Cf. A138111, A138170, A154550