|
%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
|
