%I #12 Feb 15 2025 16:18:46
%S 2,5,97,109,149,317,337,349,431,709,769,1009,1061,1117,1129,1217,1297,
%T 2003,2029,2069,2129,2153,2237,2377,2411,2437,2777,2909,2927,3089,
%U 3109,3229,3359,3533,3557,3631,4129,4337,4603,4789,4903,4937,5021,5167,5563,5737
%N Primes of the form A001043(j)-3.
%C Primes 3 less than the sum of two consecutive primes.
%H Vincenzo Librandi, <a href="/A162569/b162569.txt">Table of n, a(n) for n = 1..5000</a>
%e 2 = prime(1)+prime(2)-3 = 2+3-3 has the requested format and is added to the sequence.
%e 5= prime(2)+prime(3)-3= 3+5-3 has the requested format and is added to the sequence.
%e 97 = prime(15)+prime(16)-3 = 47+53-3.
%t Select[Table[Prime[n] + Prime[n + 1] - 3, {n, 600}], PrimeQ] (* _Vladimir Joseph Stephan Orlovsky_, Feb 22 2012 *)
%t Select[Total/@Partition[Prime[Range[500]],2,1]-3,PrimeQ] (* _Harvey P. Dale_, Feb 15 2025 *)
%K nonn,changed
%O 1,1
%A _Claudio Meller_, Jul 06 2009
%E Definition rephrased by _R. J. Mathar_, Aug 07 2009