A207990 - OEIS

%I #14 Apr 05 2020 11:59:00

%S 3,7,13,19,31,37,47,73,79,107,139,157,167,181,193,199,211,263,271,283,

%T 347,367,379,457,467,487,503,571,613,619,643,691,757,823,859,877,887,

%U 919,941,997,1039,1187,1231,1279,1307,1423,1489,1579,1601,1627,1663

%N Primes of the form prime(n) + prime(n+1) - 5.

%H Vincenzo Librandi, <a href="/A207990/b207990.txt">Table of n, a(n) for n = 1..3000</a>

%t Select[Table[Prime[n] + Prime[n + 1] - 5, {n, 200}], PrimeQ]

%t Select[Total/@Partition[Prime[Range[200]],2,1]-5,PrimeQ] (* _Harvey P. Dale_, Apr 05 2020 *)

%o (PARI) p=2;forprime(q=3,1e4,if(isprime(t=p+q-5),print1(t", "));p=q) \\ _Charles R Greathouse IV_, Apr 13 2012

%Y Cf. A072669, A092738.

%K nonn,less

%O 1,1

%A _Vladimir Joseph Stephan Orlovsky_, Feb 22 2012