A207990 -id:A207990 - cp's OEIS frontend

A207991 Primes of the form prime(n) + prime(n+1) + 5.

13, 17, 23, 29, 41, 47, 73, 83, 89, 149, 157, 167, 191, 227, 263, 281, 293, 313, 389, 401, 439, 461, 467, 563, 569, 653, 673, 701, 757, 857, 877, 887, 911, 929, 971, 983, 1049, 1069, 1093, 1109, 1153, 1213, 1277, 1289, 1433, 1451, 1487, 1499, 1523, 1637

Offset: 1

Vladimir Joseph Stephan Orlovsky, Feb 22 2012

Vincenzo Librandi, Table of n, a(n) for n = 1..3000

Cf. A072669, A092738, A207990.

Select[Table[Prime[n] + Prime[n + 1] + 5, {n, 200}], PrimeQ]
Select[Total[#]+5&/@Partition[Prime[Range[300]],2,1],PrimeQ] (* Harvey P. Dale, Dec 28 2021 *)

p=2;forprime(q=3,1e4,if(isprime(t=p+q+5),print1(t", "));p=q) \\ Charles R Greathouse IV, Apr 13 2012

A207992 Primes p of the form p = prime(n) + prime(n+1) - 5 and p = prime(k) + prime(k+1) + 5.

Original entry on oeis.org

13, 47, 73, 157, 167, 263, 467, 757, 877, 887, 2027, 2593, 3203, 3733, 4273, 4703, 4787, 5087, 5387, 6373, 6637, 7393, 7823, 8893, 9587, 10007, 10163, 12433, 13933, 15083, 15287, 15373, 16333, 17387, 17483, 18013, 18313, 19237, 19477, 20327, 21467, 23567

Offset: 1

Vladimir Joseph Stephan Orlovsky, Feb 22 2012

n = k+1 or k+2. - Charles R Greathouse IV, Apr 16 2012

			3+5+5 = 13 = 7+11-5, 23+29-5 = 47 = 19+23+5

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A072669, A092738, A207990, A207991.

a1 = Select[Table[Prime[n] + Prime[n + 1] - 5, {n, 2010}], PrimeQ]; a2 = Select[Table[Prime[n] + Prime[n + 1] + 5, {n, 2000}], PrimeQ]; Intersection[a1, a2]
With[{pr=Transpose[#+{5,-5}&/@Total/@Partition[Prime[Range[3000]],2,1]]}, Select[Intersection[pr[[1]],pr[[2]]], PrimeQ]] (* Harvey P. Dale, Mar 13 2013 *)

p=2;q=3;r=5;forprime(s=7,1e4,if((r==p+10||r+s==p+q+10) && isprime(p+q+5), print1(p+q+5", "));p=q;q=r;r=s) \\ Charles R Greathouse IV, Apr 16 2012

cp's OEIS Frontend

A207991 Primes of the form prime(n) + prime(n+1) + 5.

Views

Author

Keywords

Links

Crossrefs

Programs

Mathematica

PARI