A177017 Primes prime(n) such that prime(n) + prime(n+1) + 1 is also prime.

5, 7, 13, 17, 19, 23, 29, 37, 47, 53, 67, 79, 83, 97, 103, 109, 113, 131, 137, 163, 173, 181, 197, 227, 229, 251, 257, 269, 283, 293, 307, 313, 359, 383, 389, 401, 409, 421, 439, 449, 457, 467, 479, 491, 503, 509, 587, 593, 599, 613, 617, 643, 647, 659, 677

Offset

1,1

Links

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

Mathematica

Select[Prime[Range[200]], PrimeQ[#+NextPrime[#]+1]&] (* Vincenzo Librandi, Aug 26 2012 *)
Transpose[Select[Partition[Prime[Range[300]], 2, 1], PrimeQ[Total[#]+1]&]][[1]] (* Harvey P. Dale, Apr 16 2013 *)

Prog

(Magma) [NthPrime(n): n in [1..200] | IsPrime(NthPrime(n)+NthPrime(n+1)+1)]; // Vincenzo Librandi, Aug 26 2012

Crossrefs

Cf. A072666, A072667.

Sequence in context: A038988 A033560 A092551 * A136089 A337811 A040995

Adjacent sequences: A177014 A177015 A177016 * A177018 A177019 A177020

Keyword

nonn,easy

Author

Vincenzo Librandi, May 22 2010

Extensions

Edited and corrected by N. J. A. Sloane, Jun 22 2010

Status

approved