

A154551


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


3



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[n1]; p=Prime[n]; d=ppp; 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
Sequence in context: A093574 A076846 A046931 * A058047 A098860 A106920
Adjacent sequences: A154548 A154549 A154550 * A154552 A154553 A154554


KEYWORD

nonn


AUTHOR

Vladimir Joseph Stephan Orlovsky, Jan 11 2009


EXTENSIONS

Edited by Omar E. Pol, Jan 12 2009


STATUS

approved



