login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A173971 Primes p such that 2*p+q is prime, where q is the prime following p. 6
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 *)

PROG

(PARI) lista(nn) = {forprime(p=2, nn, if (isprime(2*p+nextprime(p+1)), print1(p, ", ")); ); } \\ Michel Marcus, Feb 11 2015

CROSSREFS

Cf. A173970

Sequence in context: A045312 A129672 A259188 * A095083 A236183 A093077

Adjacent sequences:  A173968 A173969 A173970 * A173972 A173973 A173974

KEYWORD

nonn

AUTHOR

Vladimir Joseph Stephan Orlovsky, Mar 03 2010

EXTENSIONS

Definition clarified by Zak Seidov, Feb 11 2015

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 27 02:39 EDT 2021. Contains 346302 sequences. (Running on oeis4.)