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

 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.

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