OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..3000
MATHEMATICA
Select[Table[Prime[n] + Prime[n + 1] - 5, {n, 200}], PrimeQ]
Select[Total/@Partition[Prime[Range[200]], 2, 1]-5, PrimeQ] (* Harvey P. Dale, Apr 05 2020 *)
PROG
(PARI) p=2; forprime(q=3, 1e4, if(isprime(t=p+q-5), print1(t", ")); p=q) \\ Charles R Greathouse IV, Apr 13 2012
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 22 2012
STATUS
approved