login
Primes of the form A001043(j)-3.
1

%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