A179485 Sums of two successive primes s such that s+-3 are primes.

8, 100, 1120, 1220, 1300, 2240, 2380, 2414, 3536, 3634, 4906, 4940, 5566, 5740, 6706, 7240, 8864, 9224, 9394, 10136, 10850, 12040, 12476, 12586, 12920, 13180, 13334, 13754, 14630, 14720, 15134, 16270, 17710, 18430, 18800, 19916, 21014, 21320

Offset

1,1

Comments

Intersection of A001043 and A087695. - Robert Israel, Oct 25 2017

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Example

3+5=8,8-3=5(prime),8+3=11(prime),..

Maple

q:= 2; p:= 3;
count:= 0:
while count < 100 do
  q:= p; p:= nextprime(p);
  s:= q+p;
  if isprime(s-3) and isprime(s+3) then
    count:= count+1; A[count]:= s;
  fi
od:
seq(A[i], i=1..count); # Robert Israel, Oct 25 2017

Mathematica

q=3; Select[Table[Prime[n]+Prime[n+1], {n, 7!}], PrimeQ[ #-q]&&PrimeQ[ #+q]&]
Select[Total/@Partition[Prime[Range[1400]], 2, 1], AllTrue[#+{3, -3}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Sep 04 2018 *)

Crossrefs

Cf. A074924, A074925, A167597, A176984, A176986, A075593, A075594, A116360, A076565

Cf. A001043, A087695.

Sequence in context: A261742 A222486 A229282 * A144072 A261800 A208705

Adjacent sequences: A179482 A179483 A179484 * A179486 A179487 A179488

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Jul 16 2010

Status

approved