A173971 - OEIS

A173971

Primes p such that 2*p+q is prime, where q is the prime following p.

2, 3, 5, 13, 17, 19, 29, 59, 79, 103, 109, 113, 149, 197, 223, 227, 229, 239, 241, 269, 283, 337, 349, 409, 419, 439, 491, 569, 577, 643, 659, 691, 701, 709, 739, 743, 769, 773, 787, 823, 839, 911, 919, 983, 1051, 1153, 1213, 1277, 1373, 1409, 1423, 1427

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

OFFSET

1,1

COMMENTS

The resulting primes are in A094104. - Michel Marcus, Feb 11 2015

LINKS

Zak Seidov, Table of n, a(n) for n = 1..10000

EXAMPLE

2*2+3=7, 2*3+5=11, 2*5+7=17,..

MATHEMATICA

lst={}; Do[p=Prime[n]; If[PrimeQ[2*p+Prime[n+1]], AppendTo[lst, p]], {n, 6!}]; lst

Select[Partition[Prime[Range[300]], 2, 1], PrimeQ[2#[[1]]+#[[2]]]&][[All, 1]] (* Harvey P. Dale, Apr 01 2018 *)