A088175 Primes such that the next two primes are a twin prime pair.

2, 3, 7, 13, 23, 37, 53, 67, 97, 103, 131, 139, 173, 181, 193, 223, 233, 263, 277, 307, 337, 409, 421, 457, 509, 563, 593, 613, 631, 653, 797, 811, 823, 853, 877, 1013, 1021, 1039, 1051, 1087, 1129, 1223, 1259, 1283, 1297, 1307, 1423, 1447, 1471, 1483, 1601

Offset

1,1

Comments

Primes p such that nextprime(p) + 2 is prime. - Irina Gerasimova, Jun 28 2013

Links

Amiram Eldar, Table of n, a(n) for n = 1..10000

Maple

A088175 := proc(n)
    prevprime(A001359(n)) ;
end proc:
seq(A088175(n), n=1..30) ; # R. J. Mathar, Nov 26 2014

Mathematica

fQ[n_]:=PrimeQ[NextPrime[n]+2]; Select[Prime@Range@500, fQ] (* Vladimir Joseph Stephan Orlovsky, Apr 16 2011 *)

Prog

(PARI) is(n)=isprime(n) && isprime(nextprime(n+1)+2) \\ Charles R Greathouse IV, Jun 28 2013
(Magma) [NthPrime(n): n in [1..260] | NthPrime(n+2)-NthPrime(n+1) eq 2]; // Vincenzo Librandi, Nov 18 2014

Crossrefs

Cf. A088176.

Sequence in context: A291544 A208149 A144104 * A271827 A298339 A091440

Adjacent sequences: A088172 A088173 A088174 * A088176 A088177 A088178

Keyword

easy,nonn

Author

Zak Seidov, Sep 22 2003

Extensions

More terms from Ray Chandler, Sep 25 2003

Definition clarified by Irina Gerasimova, Jun 28 2013

Status

approved