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
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, May 22 2010
EXTENSIONS
Edited and corrected by N. J. A. Sloane, Jun 22 2010
STATUS
approved