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

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,1

Comments

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

Links

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

Example

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

Mathematica

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

Prog

(PARI) 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

Crossrefs

Cf. A072669, A092738, A207990, A207991.

Sequence in context: A116476 A299716 A035340 * A274447 A001662 A031390

Adjacent sequences: A207989 A207990 A207991 * A207993 A207994 A207995

Keyword

nonn,less

Author

Vladimir Joseph Stephan Orlovsky, Feb 22 2012

Status

approved