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[#]+5&/@Partition[Prime[Range[300]], 2, 1], PrimeQ] (* Harvey P. Dale, Dec 28 2021 *)
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