login
A177017
Primes prime(n) such that prime(n) + prime(n+1) + 1 is also prime.
7
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
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
Sequence in context: A038988 A033560 A092551 * A136089 A337811 A040995
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, May 22 2010
EXTENSIONS
Edited and corrected by N. J. A. Sloane, Jun 22 2010
STATUS
approved