OFFSET
1,1
LINKS
Vincenzo Librandi and Harvey P. Dale, Table of n, a(n) for n = 1..10000 ( first 1000 terms from Vincenzo Librandi)
FORMULA
MATHEMATICA
Transpose[Select[Partition[Prime[Range[130]], 2, 1], PrimeQ[Total[#]-1]&]] [[1]] (* Harvey P. Dale, Feb 29 2012 *)
Select[Prime[Range[200]], PrimeQ[#+NextPrime[#]-1]&] (* Vincenzo Librandi, Aug 26 2012 *)
PROG
(Magma) [NthPrime(n): n in [1..200] | IsPrime(NthPrime(n) + NthPrime(n+1)-1)] // Vincenzo Librandi, Aug 26 2012
CROSSREFS
KEYWORD
nonn
AUTHOR
Herman H. Rosenfeld (herm3(AT)pacbell.net), Aug 12 2002
STATUS
approved