

A162358


The larger member q in a pair of successive primes (p,q) such that p*q+p+q is prime.


1



3, 5, 7, 13, 17, 19, 23, 29, 43, 47, 53, 61, 83, 89, 97, 103, 113, 127, 139, 167, 173, 179, 227, 233, 263, 313, 389, 397, 419, 421, 443, 449, 487, 523, 557, 563, 587, 599, 617, 647, 653, 691, 787, 809, 811, 821, 857, 967, 991, 1021, 1051, 1103, 1117, 1153, 1181
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS



FORMULA



EXAMPLE

q=3 is the larger member in (2,3) where 2*3+2+3=11 is prime.
q=5 is the larger member in (3,5) where 3*5+3+5=23 is prime.


MATHEMATICA

lst={}; Do[p=Prime[n]*Prime[n+1]+Prime[n]+Prime[n+1]; If[PrimeQ[p], AppendTo[lst, Prime[n+1]]], {n, 6!}]; lst
Transpose[Select[Partition[Prime[Range[200]], 2, 1], PrimeQ[ Times@@#+ Total[ #]]&]] [[2]] (* Harvey P. Dale, Jan 19 2016 *)


CROSSREFS



KEYWORD

nonn


AUTHOR



EXTENSIONS



STATUS

approved



