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

Author

Vincenzo Librandi, May 22 2010

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A072666, A072667.

Programs

Magma

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

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

Extensions

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