A173970 -id:A173970 - cp's OEIS frontend

A173972 Primes which are not in A173970 or A173971.

11, 31, 37, 41, 43, 61, 67, 71, 83, 89, 97, 101, 107, 127, 131, 137, 139, 151, 163, 167, 179, 181, 191, 193, 199, 251, 271, 277, 281, 293, 307, 311, 313, 317, 331, 347, 359, 367, 379, 383, 389, 397, 401, 421, 431, 433, 443, 449, 457, 461, 463, 467, 479, 487

Offset: 1

Vladimir Joseph Stephan Orlovsky, Mar 03 2010

nonn

Cf. A173970, A173971.

lst={}; Do[p=Prime[n]; If[PrimeQ[2*p-Prime[n+1]], AppendTo[lst,p]], {n,8!}]; lst1=lst; lst={}; Do[p=Prime[n]; If[PrimeQ[2*p+Prime[n+1]], AppendTo[lst,p]],{n,8!}]; lst2=lst; Complement[Prime[Range[200]], lst1, lst2]

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

Original entry on oeis.org

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

Offset: 1

Vladimir Joseph Stephan Orlovsky, Mar 03 2010

nonn

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

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

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

Cf. A173970

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

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

Definition clarified by Zak Seidov, Feb 11 2015

cp's OEIS Frontend

A173972 Primes which are not in A173970 or A173971.

Views

Author

Keywords

Crossrefs

Programs

Mathematica

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

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions