|
|
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
|
|
|
|